"Программы без ошибок можно написать
двумя способами, но работает — третий"
Алан Джей Перлис

Решение задач по теме "Условный оператор If в Pascal"

Даны два числа. Вывести большее из них.

program one;
var
   x,y:real;
begin
   write('x = ');
   readln(x);
   write('y = ');
   readln(y);
   
   if x>y then
     write(x)
   else
     write(y);
end.

 

 

Назад