Вопрос Задача на pascal

[sass]

Даны два числа. Вывести сначала

наибольшее из них, а затем наименьшее

 

[Miks]

program max_min;
var
a, b: integer;
begin
readln(a,b);
if a > b then
writeln('Наибольшее число:', a, ' Наименьшее число:', b)
else
writeln('Наибольшее число:', b, ' Наименьшее число:', a);
end.

 

[пидр]

var a,b: real;
begin
read(A,B);
if A > B then
writeln(A,B)
else
write(B,A);
end.

 

[alex34df4]

var a,b:integer;
begin
readln(a);
readln(b);
if a>b then
writeln(a,b);
else
writeln(b,a);
end.

 

[Alf]

program test_1;
var a,b: real;
begin
read(a,b);
if a > b then
writeln(a)
else
write(b);
end.