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

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