Напишите программу Паскаль срочно пожалуйста даю 40 балов
Найти сумму нечётных чисел кратных 3 которые заканчиваются цифрой 5.

Всё верно)

var  i,s,n,m:integer;begin  Write('Количество чисел равно ');  Readln(n);  s:=0;  Writeln('Введите все числа');  for i:=1 to n do  begin    Read(m);    if (abs(m mod 10)=5) and (m mod 3=0) then s:=s+m  end;  Writeln('s=',s)end.