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

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