Дам 100 баллов срочно.паскаль. номер B1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (a,b,c):=ReadInteger3;
  var max:integer;
  if a>b then max:=a else max:=b;
  if c>max then max:=c;
  Writeln(max)
end.

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

Adblock detector