Даны числа: 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 a>b then c:=a/2 
writeln('poluchennoe chislo a: ',c) else d:=a*3 writeln('poluchennoe chislo a',d);
end.