Объясните пожалуйста кратенько програмку Паскаля. (Задание на возрастание)
Ребятки, я тут нашла программу (для Паскаля) где расставляют числа по возрастанию. Программа рабочая.
Но я совсем не шарю, объясните мне, что значит каждая строка. (Для чего написан тот или иной оператор, и вообще что делает эта функция)
var
a:array[1..4] of longint;
i,j:byte;
b:longint;
begin
for i:=1 to 4 do
read(a[ i ]);
for i:=1 to 3 do
for j:=i+1 to 4 do
if a[ i ]>a[j] then begin
b:=a[ i ];
a[ i ]:=a[j];
a[j]:=b;end;
for i:=1 to 4 do
write(a[ i ],' ');
readln;
readln;
end.