Var
a,b,c,i:integer;
Begin
Readln(a);
readln(b);
c:=0;
For i:=a to b do
c:=c+i*i;
writeln(c);
end.
Объяснение:
Это на первую задачу, там если надо текст подставишь
Var
a,b,c,i:integer;
Begin
Readln(a);
readln(b);
c:=0;
For i:=a to b do
c:=c+i*i;
writeln(c);
end.
Объяснение:
Это на первую задачу, там если надо текст подставишь