Даны действительные числа a и b если а<=b, то первое число увеличить в два раза, а ко второму числу добавить 5, в противном случае числа уменьшить на 5

program zz1;

var a, b, x0, x1:real; / / задаем переменные не целого типа

begin

write (' введите первое действительное число '); / / вводим с клавиатуры не целое число

read (a);

write (' введите второе действительное число '); / / вводим с клавиатуры не целое число

read (b);

If (a < = b) / / проверяем, если первое число меньше или равно второго, то

Then begin a:=a * 2; b:=b + 5; end / / первое увеличиваем в два раза, а второе увеличиваем на пять

else begin a:=a - 5; b:=b - 5; end; / / уменьшаем оба числа на пять

write (' a = ', a, ' b = ', b); / / выводим ответ

end.