Ответ:
Объяснение:
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.