program Zada4a_4;

{$APPTYPE CONSOLE}
var
i,S:longint;
begin
S:=0;
i:=5;
While i<100 do
begin
i:=i+5;
S:=S+SQR(i)*i;
end;
write('S=',S);
readln;
end.