Написать программу на языке Pascal
Определить сумму чисел вводимых с клавиатуры, причем только тех, которые кратны 5 и не кратны 2
Повторюсь, ПРОГРАММУ НА PASCAL

Спасибо. Просто то что нужно,выручил

var n,a,s,i:integer;beginwrite('Количество чисел = ');readln(n);Writeln(n,' чисел:');s:=0;for i:=1 to n do begin readln(a); if (a mod 5=0)and(a mod 2<>0) then s:=s+a; end;writeln('s = ',s);end.Пример:Количество чисел = 1010 чисел:18402543614530543715s = 85