Пожалуйста, помогите с заданием по информатике , 8 класс

Программу, значит, составить (написать)... - Это можно. Только вот на каком языке программирования это нужно сделать? - Нет, программе-то, конечно, без разницы, на каком языке программирования (а их (языков программирования) существует порядка 40) она написана, а вот учитель/преподаватель может спросить, с чего это программа была написана на этом языке программирования, а не на том, который он(а) преподает.

Вот, например, на Fortran:

 Integer::a, n, n8, s; 

Print *, "Вводите с клавиатуры только целые числа." 

Print *, "После ввода каждого из чисел нажимайте клавишу Enter." 

Print *, "Для окончания ввода введите число 42" 

n=0 

n8=0 

s=0 

do while (a/=42) 

    Read (*,*) a 

    n=n+1 

    s=s+a 

    if (mod (a, 8)==0) then 

        n8=n8+1 

    endif 

enddo 

Print *, "Сумма всех введенных чисел: ", s 

Print *, "Среднее арифметическое введенных чисел: ", s/n 

Print *, "Количество чисел, кратных 8, из введенных: ", n8 

End 

помогите или сделайте за меня покаянные.?

var
num, sum, count, count8: integer;
average: real;
begin
sum := 0;
count := 0;
count8 := 0;

writeln('Введите числа, пока не введете 42:');

repeat
readln(num);
sum := sum + num;
count := count + 1;

if num mod 8 = 0 then
count8 := count8 + 1;

until num = 42;

average := sum / count;

writeln('Сумма введенных чисел: ', sum);
writeln('Среднее арифметическое: ', average:0:2);
writeln('Количество чисел, кратных 8: ', count8);

readln;
end.

// Используем цикл while:

var
num, sum, count, count8: integer;
average: real;
begin
sum := 0;
count := 0;
count8 := 0;

writeln('Введите числа, пока не введете 42:');

while num <> 42 do
begin
readln(num);
sum := sum + num;
count := count + 1;

if num mod 8 = 0 then
count8 := count8 + 1;

end;

average := sum / count;

writeln('Сумма введенных чисел: ', sum);
writeln('Среднее арифметическое: ', average:0:2);
writeln('Количество чисел, кратных 8: ', count8);

readln;
end.

вест пасхаль уде в гугле есть, изи атм