Составить программу ввести три целых числа и найти наибольшее из них. пример введите...

Question

Составить программу

ввести три целых числа и найти наибольшее из них.

пример введите три числа

4 15 9

наибольшее число 15

Answer 1

Var  a, b, c: integer;
begin
  writeln('Введите три числа:');
  readln(a, b, c);
  if (a > b) and (a > c) then writeln(a);
  if (b > a) and (b > c) then writeln(b)
  else writeln(c)
end.