В колонках играет - Сплин
Настроение сейчас - ХЗ

Очень простенькая программка

Program lab1;
uses crt;
var
mas : array[0..2] of integer;
i, j, k, m, s, n :integer;

begin
clrscr;
writeln('Vvedite tri chisla');
write('a=');
readln(mas[0]);
write('b=');
readln(mas[1]);
write('c=');
readln(mas[2]);
writeln;

if (mas[0]<0) or (mas[1]<0) or (mas[2]<0) then
{ vyvod rezultatov v poryadke vozrastaniya absolutnyh velichin}
begin
for s:=0 to 2 do
mas[s]:=abs(mas[s]);

{ sortirovka metodom puzyrka}
for i:=0 to 1 do
begin
j:=0;
k:=0;
for m:=i to 2 do
if mas[m] > k then
begin
k:=mas[m];
j:=m; {poziciya maksimal'nogo elemente massiva}
end;
k:=mas[i];
mas[i]:=mas[j];
mas[j]:=k;
end;

writeln('vyvod rezultatov v poryadke vozrastaniya absolutnyh velichin');
writeln('---');
n:=0;
for n:=2 downto 0 do
writeln(mas[n]);
writeln('---')

end

{vyvod rezultatov v poryadke postupleniya}
else
begin
writeln('vyvod rezultatov v poryadke postupleniya');
writeln('---');
for n:=0 to 2 do
writeln(mas[n]);
writeln('---');
end;

end.

Вложение: 3545949_dasha.txt