Написать программу,выводящую в столбик значение квадратов целых чисел от 11 до 20 (паскаль)

for index := 11 to 20 do
begin
    toWrite := index * index;
    writeln(toWrite);
end;