Даны числа: 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.