Перевести программы с языка C + + на язык Паскаль:

1.

int a, b;

cin " a"b;

a = 2 * a;

if (a >b) {a = 2*b; }

else if (a else if (a==b) {a = a + b; }

cout " a;

2.

int x = 64;

int y = 40;

while (x!=y) {

if (x>y) {

x = x - y;

}else{

x = y-x;

}

}

dct

1. Полноценная программа

var a, b:integer;

begin

Read (a, b) ;

a:=2*a;

if a >b then a:=2*b

else

if a0 then begin if a=b then a:=a+b end;

Writeln (a)

end.

2. Фрагмент программы

var x, y:intereg;

begin

x:=64; y:=40;

while x=y do

if x>y then x:=x-y else x:=y-x;