‼️Срочно ‼️ ПАСКАЛЬ 7 класс

Ответ:

Объяснение:

program sum100;

var s,a,i:integer;

begin

writeln('Введите число меньше 100: ');

readln(a);

s:=0;

if a>100 then writeln('Неверное число.');

for i:=a to 100 do

if i mod 3=0 then s:=s+i;

writeln('сумма чисел кратных 3-м из отрезка от ',a,' до 100 = ',s);

readln;

end.