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

Program zadasha;var a,b,c,d: real;beginwriteln ('vvedite chislo a');readln(a);writeln('vvedite chislo b');readln(b);if a>b then beginc:=a/2;write('poluchennoe chislo a: ',c)endelse begind:=a*3;write('poluchennoe chislo a: ',d);end;end.

ВОТ ЭТО ПРАВИЛЬНО

Program zadasha;var a,b,c,d: real;beginwriteln ('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.