Даны числа: a и b. Если a > b, то уменьшить его в 2 раза, иначе увеличить на 3.

Program zadasha;
var a,b,c,d: real;
begin
writeln (vvedite chislo a);
readln(a);
writeln(vvedite chislo b);
readln(b);
if agt;b then c:=a/2 
writeln(poluchennoe chislo a: ,c) else d:=a*3 writeln(poluchennoe chislo a,d);
end.