Перевести программы с языка 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 a<>0 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;