Напишите программу которая вычисляет сумму 1) первыз n натуральных чисел 2) квадратов первых n натуральных чисел 3) всех четных чисел в диапазоне от 1до n 4) всех двузначных чисел

// PascalABC.NET
var i,n,s1,s2,s3,s4:integer;
begin
  readln(n);
  for i:=1 to n do begin
    s1:=s1+i;
    s2:=s2+i*i;
    if i mod 2=0 then s3:=s3+i;
    if (i>9) and (i<100) then s4:=s4+i;
  end;
  writeln(s1,' ',s2,' ',s3,' ',s4)

end.