Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.
Новые вопросы по предмету Информатика:
Var kol1, kol2, kol3: integer;
begin
read(kol1, kol2, kol3);
if (kol1 >= kol2) and (kol1 >= kol3) then writeln(kol1)
else if (kol2 >= kol1) and (kol2 >= kol3) then writeln(kol2)
else writeln(kol3)
end.