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

Var   n,S,S3:integer;BeginWrite('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.