Var
n,i:integer;
begin
readln(n);
while i<n do
begin
i:=i+1;
writeln(i);
end;<span>end.</span>
1-д, 2-в,3-c,6-а,7-а,8-в,9-д:)
Dim i as Integer
Dim Summ as Integer
''''''''''''''''''''''''''''''''''''
Summ=1
For i=-10 to 10 Step 2
Summ=Summ*i
Next
'''''''''''''''''''''''''''''''''
i=-10
Summ=1
Do
summ = summ * i
i = i + 2
Loop While i <> 12
<span>
''''''''''''''''''''''''''''
</span>i=-10
Summ=1
Do
summ = summ * i
i = i + 2
Loop Until i = 12
Ответ:
var i,m:integer;
a:array [1..20] of integer;
begin
m:=5;
for i := 1 to 20 do
begin
a[i]:=random(11)-5;
write (a[i]:3);
if a[i]<m then m:=a[i]
end;
writeln;
write (m)
end.