Написать программу на Паскале, которая выводит на экран квадраты чисел от 10 до 20.

program ex25; {вычисление квадратов чисел от 10 до 20}
uses
Crt;
var
i, a: integer;
begin
ClrScr;
for i:=10 to 20 do
begin
a:=i*i;
Writeln('Квадрат числа ',i, ' = ', a);
end;
ReadLn;
End.