Var
a,b,c:integer;
begin
read(a,b,c);
if a<b then a:=b;
if a>=c then writeln(a) else writeln(c);
end.
Все 6 заданий имеют одинаковую блок-схему.(например, 5 В ромбе пишем На местности есть пень? В прямоугольнике Сторона ... является южной
Например, 4 В ромбе: На местности есть муравейник? В прямоугольнике: сторона является южной