ПОМОГИТЕ, ПОЖАЛУЙСТА, НАПИСАТЬ ПРОГРАММУ Напишите программу, которая в последовательности натуральных чисел определяет

Var t, rea, n, i: integer;biginwrite (\'Сколько чисел будет введено : \');readln (n);res: = 0;for i:=1 to n doBeginwrite (\'Введите число\' ,i, \': \');readln (t);if (t mod 3= 0) and (t mod 10 =8) then res: = res+t;end;writeln (res);end.Конечные значения: Введите число 1: 3Введите число 2: 18Введите число 3: 25Введите число 4: 4866(Program exited with code: 0)Press return to continue