Var a,b,c: integer;
begin
readln (a,b,c);
if (a>b) and (a>c) then writeln (a);
if (b>a) and (b>c) then writeln (b);
if (c>a) and (c>b) then writeln (c);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.