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

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.

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

ac это что?

правильно:
if (b>a) and (b>c) then
ибо приоритет операций

вместо if 1=1 then с тем же успехом можно написать if true then

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

if (a<b) and (a<c) then
begin
if (b<c) 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 (c<a) and (c<b) then
begin
if (a<b) then writeln(c, a, b)
else writeln(c, b, a);
end;

if(a=b) and (a<c) and (a <> c) then writeln(a, b, c);
if(a=c) and (a<b) and (a <> b) then writeln(a, c, b);
if(b=c) and (b<a) and (b <> a) then writeln(b, c, a);
if(a=b) and (b=c) then writeln(a, b, c);
end.

Вот. Но так писать не надо. Хех. Может что то не учёл

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