Вопрос Паскаль программа програмирование паскаль

[123654]

Program poporadky;
var a,b,c: real;
begin
write('введите 3 числа');
read(a, b, c);

if a<b and ac then writeln(a, b, c)
else writeln(a, c, b);
end;

if b>a and b>c then
begin
if a>c then writeln(b, a, c)
else writeln(b, c, a);
end;

if 1=1 then
begin
if a>b then writeln(c, a, b)
else writeln(c, b, a)
end;
end.

смысл в том, что нужно спросить 3 числа и расположить их по порядку, но к типу integer нельзя приминить сравнение (пишет в программе), а к типу real нельзя применять оператор and, что делать ?

 

[Расиль]

Кто тут шарит? Походу никто

 

[danilcs1996]

Сравнение в скобки (A<B) должно быть.

 

[ТумшД]

var a, b, c, t: real; begin read(a, b, c); if a > b then begin t := a; a := b; b := t end; if b > c then begin t := b; b := c; c := t end; if a > b then begin t := a; a := b; b := t end; writeln(a, , b, , c) end.

 

[zewc11]

ac это что? правильно: if (b>a) and (b>c) then ибо приоритет операций вместо if 1=1 then с тем же успехом можно написать if true then