Var x1,x2,x3,x4,x5,max:real;
begin
writeln(x1 x2 x3 x4 x5);
readln(x1,x2,x3,x4,x5);
max:=x1;
if max
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.