Да 4)А......Там сложновато.....
Драйвера, программы, различные оболочки, утилиты, приложения.
Первое задание:
var d: array [1..30] of integer;
i,s:integer;
begin
for i:=1 to 30 do
readln d[i];
s:=1;
for i:=2 to 29 do
s:=s*d[i];
writeln(s)
<span>end.</span>
354
235, 15
472, 35
417, 165
317, 35
Var i : Integer;
Begin
For i:=1 to 20 do Writeln(i,'^2 = ',sqr(i));
end.