Ответ:
готово
Объяснение:
1)
program massiv;
var
i, N: integer;
begin
Write('Введите количество чисел: ');
ReadLn(N);
for i := 1 to N do
WriteLn(i);
end.
2)
program squares;
var
i, N: integer;
begin
Write('Введите количество чисел: ');
ReadLn(N);
for i := 1 to N do
WriteLn(sqr(i));
end.
3)
program summa;
var
i, N, sum: integer;
begin
Write('Введите количество чисел: ');
ReadLn(N);
for i := 1 to N do
if (i mod 2 = 0) then sum := sum + i;
WriteLn('Сумма четных чисел равна ', sum);
end.