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 для нахождения большего из трех чисел.
begin
writeln(‘Введите 3 числа ‘);
readln ( x , y , z );
if x>y then begin
if x>z then writeln (x) else writeln (z) end
else begin
if y>z then writeln (y) else writeln (z) end;
readln;
End.