Помогите создать программу в паскале, которая выводит квадраты чисел в столбик с пробелами.
​

var a,i:integer;

begin

 write('До какого числа? '); readln(a);

 for i:=1 to a do

    writeln('Квадрат числа ',i,' = ',sqr(i));

end.