   Pascal  Java .
: 1.01
: YellowAfterlife [ http://yellow.orgfree.com ]

uses ~> import
	 ( Java - )   .
	Pascal:
		uses lib1, lib2;
	Java:
		import lib1;
		import lib2;
	     :
		import javax.microedition.lcdui.Image;

Begin ... End ~> { ... }
	    - ,  Java -  \  .
	  '}'      .
	Pascal:
		begin
			
		end
	Java:
		{
			
		}
	      Java   'begin - end.'.  
	     .     
	     .

procedure ~> void
	 Java        
	  'void' (.. , ).     
	  MidletPascal,     'public static void'
	Pascal:
		procedure something;
		begin
			...
		end;
	Java:
		void something
		{
			...
		}

function (): ... ~>  () ...
	 Java (     )   
	  .
	Pascal:
		function mul2(i: integer; j: integer): integer;
		begin
			mul2 := i * 2;
		end;
	Java:
		int mul2(int i, int j)
		{
			return i * 2;
		}

Result ~> return
	        return.  
	      Result\( ):   
	    .    Pascal-
	    ,     
	   .
	Pascal:
		function plike(i: integer): integer;
		begin
			plike := i;
			if i < 0 then plike := 0;
		end;
	Java:
		int plike(int i)
		{
			int result;
			result = i;
			if (i < 0) result = 0;
			return result;
		}

var : ~>  
	 Java,       ,  
	  
	Pascal:
		procedure something;
		var temp: string;
		begin
			string := '';
			...
		end;
	Java:
		void something
		{
			String temp;
			temp = "";
			...
		}

program *; var ... ~> public static ...
	     ,     
	'public static'.    ,     public.
	         .
	Pascal:
		program some;
		var i: integer;
		s: string;
		...
	Java:
		public class some
		{
			public static int i;
			public static String s;
			...
		}

:= ~> =
	   Java      .
	           .
	Pascal:
		myvar := ;
		int1 := 2;
		int2 := 2;
		int3 := 2;
	Java:
		myvar = ;
		int1 = int2 = int3 = 2;

if (...) then .. ~> if (...) ..
	Java     Then.      
	   ,      if  
	.       4- , 
	   T.  ...
	Pascal:
		if () then ;
		if () then begin
			
		end;
		if () then begin
			
		end else 
	Java:
		if () ;
		if () {
			
		}
		if () {
			
		} else 
	 ,  Java        
	   .

if (...) then .. else .. ~> ... ? .. : ..
	,  -      ,  
	 .  Java      'Ternary'.
	Pascal:
		function intIf(vif:boolean; vthen, velse: integer): integer;
		begin
			if vif then intIf := vthen else intIf := velse;
		end;
		i := intIf(i > 0, i, 0);
	Java:
		i = (i > 0 ? i : 0);

= ~> ==
	     '<,<=,>,>='   ,  
	  .      , 
	         
	   (     
	,  -  ).
	Pascal:
		if (myvar = ) then ..
	Java:
		if (myvar == ) ..

not ~> !
	 Java   'not'   '!'.   
	   
	Pascal:
		if (not expr) then ...
		mybool := not mybool;
	Java:
		if (!expr) ...
		mybool = !mybool;

<> ~> !=
	 '='  ''  '!'  '' (. ),  
	     ' '   '!='.
	Pascal:
		if (myvar <> ) then ..
	Java:
		if (myvar != ) ..

boolean and boolean ~> &&
	  ,  'and'   '&&'.
	Pascal:
		if (() and ()) then ..
	Java:
		if (() && ()) ..

integer and integer ~> &
	   'and'     '&'
	Pascal:
		four := 6 and 20;
	Java:
		four = 6 & 20;

boolean or boolean ~> ||

integer or integer ~> |

boolean xor boolean ~> ^^

integer xor integer ~> ^

shl ~> <<
	  .        2^n
	Pascal:
		hex100 := 16 shl 4;
	Java:
		hex100 = 16 << 4;

shr ~> >>
	  .       >>>,
	 >>        .
	Pascal:
		two := 16 shr 2;
	Java:
		two = 16 >>> 2;

inc() ~> ++
	 Pascal-, '++'    1.
	        .
	Pascal:
		inc();
	Java:
		++;

dec() ~> --
	    ;      ,
	   "i = i - 1", "i -= 1", "i--",  "--i", 
	(  -)     .
	Pascal:
		dec();
	Java:
		--;

 :=  ?  ~>  ?= 
	       
	   "?= "  ? -  ("+","-","*","<<", ...)
	Pascal:
		 :=  + 4;
	Java:
		 += 4;

const ~> final
	''      ,   .
	         (static).  ,
	 Java     ,    
	    .    Pascal, Java
	      .
	Pascal:
		program one;
		const
			four = 4;
			five = 5;
	Java:
		class one
		{
			public static final int four = 4, five = 5;
		}
for i := a to b do ... ~> for (i = a; i <= b; i++) ...
	Pascal:
		for j := 1 to 10 do ...
	Java:
		for (j = 1; j <= 10; j++) ...
for i := a downto b do ... ~> for (i = a; i >= b; i--) ...
	Pascal:
		for j := 20 downto 10 do ...
	Java:
		for (j = 20; j >= 10; j--) ...

repeat ... until .. ~> do ... while !..
	 Java   'repeat',   'while'  -.
	       ''   'while'.
	Pascal:
		repeat
			i := i * 2;
		until i > 100;
	Java:
		do
			i *= 2;
		while (!(i > 100))

while .. do ... ~> while .. ...
	Pascal:
		while  do ...
	Java:
		while  ...

case of ~> switch
	 Java    'case' . ,  
	   'if .. else if .. else if ... else ..',   
	     .
	Pascal:
		case of 
			1:
				1
			2:
				2
			else
				3
		end;
	Java:
		switch ()
		{
			case 1:
				1
				break;
			case 2:
				2
				break;
			default:
				3
		}

try ... except .. ~> try ... catch ..
	Pascal:
		try
			...
		except
			 : 
	Java:
		try
			...
		catch ( ) 

   Pascal  Java  .
: 1.01
: YellowAfterlife [ http://yellow.orgfree.com ]

int64 ~> long
	 64-

integer ~> int
	 32-

smallint ~> short
	 16-

shortint ~> byte
	 8- ()

single ~> float
	32-    

double ~> double
	64-    

boolean ~> boolean
	 

widechar ~> char
	 (16 ).       Java  16 (  8 
	   )    unicode.

string ~> String
	.     Java  2  (2)   
	 255   Pascal-.     
	   .

      Java  ,   Object. 
        :
http://java.sun.com/javame/reference/apis/jsr118/java/lang/package-summary.html