Вряд ли Вы на данном этапе учили массивы, раз речь идет КОНКРЕТНО о трех числах. Тогда так: Var a,b,c,t:real; Begin Readln(a,b,c); if a>b then begin t:=a; a:=b; b:=t; end; if a>c then begin t:=a; a:=c; c:=t; end; if b>c then begin t:=b; b:=c; c:=t; end; Writeln(a,,b,,c); End. Или 6 if
[THIDE="0"]const
d=1000;
var
i, j, k, m: integer;
S: array[1..d] of integer;
begin
writeln('Введите количество чисел');
readln(m);
randomize;
writeln;
write ('Исходный массив: ');
for i := 1 to m do begin
S := random(d);
write (S:4);
end;
writeln; writeln;
for i := 1 to m-1 do
for j := 1 to m-i do
if S[j] > S[j+1] then begin
k := S[j];
S[j] := S[j+1];
S[j+1] := k
end;
write ('Отсортированный массив: ');
for i := 1 to m do
write (S:4);
writeln;
readln
end.[/THIDE]