Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.
Новые вопросы по предмету Информатика:
Var a1, a2, a3, max: integer;
begin
write ('Введите три числа: ');
readln (a1, a2, a3);
if a1 >= a2 then max := a1 else max := a2;
if a3 > max then max := a3;
writeln ('Максимальное из них: ', max); readln
end.