15.01.2007 final sorularında birinin cevabı

girilen sayının girildiği kadar birbiriyle çarpımını bulduran program

uses crt;
var
a,b,c,d:integer;
begin
writeln('rakamsal degeri gir'); readln(a);
for b:= 1 to a do
begin
c:=a*a;
d:=d+c;
writeln('aaaa',d,'dir');
end;
readln;
end.