Program u4_1;Var x , y : integer ;Обрисовываем применяемые переменныеBeginwriteln(Введите

Program u4_1;

Var x , y : integer ;

Обрисовываем применяемые переменные

Begin

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

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

readln ( x , y );

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

if xgt;y then writeln (x)

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

else writeln ( y );

по другому выводим y

End.


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