Program u4_1;

Var x , y : integer ;

Описываем используемые переменные

Begin

writeln(‘Введите 2 числа ‘);

На экран выводим поясняющую надпись «Введите 2 числа»

readln ( x , y );

вводим два целых числа через пробел

if x>y then writeln (x)

если х больше y, то выводим х

else writeln ( y );

иначе выводим y

End.


1. Измените программу u 4_1 для нахождения большего из трех чисел.

Var x , y , z : integer ;beginwriteln(‘Введите 3 числа ‘);readln ( x , y , z );if x>y then beginif x>z then writeln (x) else writeln (z) endelse beginif y>z then writeln (y) else writeln (z) end;readln;End.