Даны действительные числа a и b если аamp;lt;=b,то 1-ое число прирастить

program zz1;

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

begin

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

read(a);  

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

read(b);

If (a lt;= b) // проверяем, если 1-ое число меньше либо одинаково второго, то

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

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

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

end.