Вывести на экран квадраты чисел от 11 до 27 .

Program zadanie;
Var k,i:integer;
Begin
 For i:=11 To 27 Do
 begin
 k:=k+sqr(i);
 Writeln(k);
 end;
End.

Var a,b:integer;
begin
a:=10;
b:=0;
while(a < 27) do
begin
a:=a+1;
b:=a*a;
writeln(a, '^2 = ', b);
end;
end.