Срочно!вивести ** екран 3 задані цілі числа в порядку зростання в паскалі.

Question

Срочно!
вивести на екран 3 задані цілі числа в порядку зростання в паскалі.

Answer 1

Program chisla;
Var a:array[1..3] of integer;
i,j,x,v:integer;
begin
for v:=1 to 3 do
readln(a[v]);
for i:=1 to 3-1 do
for j:=i+1 to 3 do
if a[i]>a[j] then
begin
 x:=a[i]; 
a[i]:=a[j]; 
a[j]:=x; 
end; 
for v:=1 to 3 do 
write(a[v],','); 
writeln;
end.