Решить задачу в паскале авс ..."даны 3 любых числа, вывести ** экран максимальное". через...

Question

Решить задачу в паскале авс ..."даны 3 любых числа, вывести на экран максимальное". через оператор "if

Answer 1

Var
  a,b,c:integer;
Begin
  write('Введите a,b,c (через пробел)');
  Readln(a,b,c);
  Write('Самое большое из них ');
  if (a>b) and (a>c) then write(a) else if b>c then write(b) else write(c);
End.