Составить программу, которая выводит на экран квадраты натуральных чисел от 1 до 10
Program z1; var i:integer; begin for i:= 1 to 10 do writeln(i*i); end;