Поиск наибольшего числа из трех')
write(Введите числа x,y,z >>')
readln(x,y,z);
res:=x;
if(y>res) then res:=y;
if(z>res) then res:=z;
writeln('Наибольшее число =',res);
end.

Построчно описать программный код разработанной программы и прислать его описание

ответ:  он не работал, я немного переделал

program n_1;

var x,y,z, res: integer;

begin

writeln('Поиск наибольшего числа из трех');

writeln('Введите числа x,y,z >>');

readln(x,y,z);

res:=x;

if(y>res) then res:=y;

if(z>res) then res:=z;

writeln('Наибольшее число =',res);

end.