Вводятся три целых числа.Определить каое из них наибольшее.
Var
i, x, max: integer;
begin
readln(max);
for i:=1 to 2 do
begin
readln(x);
if x>max then max := x;
end;
writeln(max);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
