Write a program that prints a table of squares for the first 10 numbers.

We use a for loop.
program tablkvadratov;
var a, n: integer;
begin
writeln (‘Number Square’);
a: = 1;
n: = 10;
for a: = 1 to n do
begin
writeln (”, a, ”, sqr (a));
end;
end.



One of the components of a person's success in our time is receiving modern high-quality education, mastering the knowledge, skills and abilities necessary for life in society. A person today needs to study almost all his life, mastering everything new and new, acquiring the necessary professional qualities.