Нужно написать программу на паскале.

program S7;

uses Crt;

const

max = 1000;

type

list = array[1..max] of integer;

var

data: list;

i: integer;

j: integer;

s: longint;

begin

Write('Now generating S 1000 numbers...');

J:=1; S:=0;

for i:=1 to max do

if i mod 7 = 0 then

begin

data[j]:=i;

j:=J+1;

end

Writeln;

for i:=1 to j do S:=S+data[j];

Write('В первых ' max 'нат. чисел находится ' j 'семерек, сумма которых ' S );

repeat until keypressed;

end.

Ох уж эта дебильная школа! Сколько этих "программистов" после ее окончания не знают как работать с обычными офисными программами, где не надо ничего программировать, а надо просто уметь пользоваться готовыми программами. Но в школе этому не учат!

Ну извините, это Вам к фрилансерам. Они и напишут и все сделают. Ну а тут вроде вопросы задают, и получают ответы.