Тема вопроса: нет. Проверить правильность р

Сложность вопроса: 1 (из 10)

<question>241

Проверить правильность решения следующей задачи: найти наибольшее из двух чисел, большему присвоить M, а меньшему - N.

program max;

var a, b, m,n:integer;

begin

(read a,b);

if a>b then begin m:=a; n:=b end else begin m:=b; n:=a end;

write(m,n); end.

program max;

var a,b,m,n: integer

begin (read a,b);

if a>b then m:=a; n:=b else m:=b; n:=a;

write (m,n) end.

program max;

var a,b,m,n:integer; begin read(a,b);

if a>b then begin m:=a; n:=b end; else begin m:=b; n:=a;

write(m,n); end.

program max;

var a,b,m,n:integer; begin read(a,b);

if a>b then begin m:=a; n:=b; end else m:=b; n:=a;

write(m,n); end.