Question

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

Answer 1

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.