Напишите программу которая вычисляет сумму 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.

Program V;
Var y, x: real;
Begin
writeln(‘значение функции y’);
x:=-4;
while x<=2 do
begin
y:=4*x^2-2*x+3 ;
x:=x+0,5;
writeln(y:16:4);
end;
End.

Решение - в прилагаемом файле.
(¬Y ∨ X) ∨ (Y ∧ Z) ∧ ¬X

1) 111111_2 = 63_10
2) 10001010_2 = 138_10 если подразумевается беззнаковое целое