[gokhanaygun]

kısa bi fazlalık var..orda

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

j,a:byte; orda a değişkeni tanımlamaya gerek yok .sanırım gözden kaçmış.
kolay gelsin