Составить программу печатающую квадрата всех натуральных чисел от 0 до заданного натурального n

Var a, i:integer;
begin
write('Введите конечное число: ');
readln(a);
for i := 0 to a do writeln(i,'² = ',sqr(i))
end.