program HelloWorld;
var n:array [1..15] of integer;
var c: integer;
var z,i: SmallInt;
begin
for i:=1 to 15 do
n[i] := random(1000);
repeat
z:=0;
//сортировка
for i:=1 to 15 do
if n[i]> n[i+1] then
begin
c:=n[i];
n[i]:=n[i+1];
n[i+1]:=c;
z:=1;
end;
until z=0;
for i:=1 to 15 do
writeln(n[i])
end.
2.
program HelloWorld;
var n:array [1..10,1..7] of integer;
var c: integer;
var z,i: SmallInt;
begin
for i:=1 to 10 do
for z:=1 to 7 do
n[i,z] := random(1000);
for i:=1 to 10 do
for z:=1 to 7 do
begin
write('A[',i,',',z,']=');
writeln(n[i,z]);
end;
for i:=1 to 10 do
for z:=1 to 7 do
begin
if i = 5 then
begin
c := n[5,z];
n[5,z] := n[7,z];
n[7,z] := c;
end;
end;
writeln('');
for i:=1 to 10 do
for z:=1 to 7 do
begin
write('A[',i,',',z,']=');
writeln(n[i,z]);
end;
end.
x:real;
Begin
Readln(a);
Readln(b);
If a<0 Then a:=1;
For i:=a to b do
Begin
x:=sqrt(i);
If frac(x)=0 Then Write(i,' ');
End;
End.