Напишите программу в pascal abc Для первых n натуральных чисел вычислить сумму чисел, кратных 3 и сумму всех чисел.

Var    n,S,S3:integer; Begin Write('n = '); ReadLn(n); For n:= 1 to n do     Begin     S:=S+n;     if n mod 3 = 0 then S3:=S3+n;     End; WriteLn('Сумма чисел [1..',n,'], кратных трём: ',S3); WriteLn('Сумма всех чисел [1..',n,']: ',S); End.