[muhemar]

uses crt;
var
i:longint;
j,a:byte;
begin
clrscr;
i:=0;
for j:=1 to 50 do
i:=i+j*j;
writeln( i);
readln;
end.


buyur umarım işini görür..