Var
a,b,i,c: integer;
Begin
Write('Введите А ');
Readln(a);
Write('Введите B ');
Readln(b);
for i:= 1 to (b-a+1) do Begin
c:=c+a*a;
a:=a+1;
End;
End.
Система хранения.............................
Program dfg;
var x, y: integer;
begin
read(x,y);
If (y<=(2-x*x)) and ((y>=x) or (x>=0)) then write ('да') else write ('нет');
end.
Со сложным условием
=КОРЕНЬ(ABS(A1)+COS(3.141593*A1))/(1+LN(A1)^2)