30б помогите пожалуйста соч​

Приложения:

Ответы

Ответ дал: artemiiprikhodko21
0

Ответ:

program Hello;

var a:integer;

var b:integer;

var max:integer;

begin

readln(a,b);

if a>b then max:=a;

if b>a then max:=b;

writeln(max);

end.

Объяснение:

Вас заинтересует