WallStreet2

Program Quad;

var a,i: integer;

begin

for i:=11 to 20 do begin

a := i*i;

writeln (i, '^2 = ', a);

end;

end.

проверьте синтаксис, чтобы она скомпилировалась.