Составить алгоритм и программу на Паскале, позволяющую найти сумму натуральных чисел, кратных 12, в диапазоне от 1 до 70

var i,s:integer;begini:=12;a:=1;while a<=70 do begin s:=s+i; i:=i+12; end;writeln('сумма=',s);end.