Question

Вывести все натуральные числа от 1 до 50 кратные 5 и их сумму, написать программу в паскале

Answer 1

var i,s: integer;

begin

 for i:=1 to 50 do if i mod 5=0 then begin writeln(i); s:=s+i; end;

 writeln(s);

end.