Нужно вывести на экран натуральные числа и их квадраты до указанного целого числа n

Паскаль: 
uses GraphABC;
var  a: integer;  
begin 
read(a); //спрашиваем до какого числа выводить 
for var i := 1 to a do 
begin   
println('Число: ' + i + '. Его квадрат: ' + sqr(i) + ';'); 
end;
end.