Створити і вивести масив з квадратів перших 10 чисел.

program Massiv;uses  crt;var  a: array[0..9] of integer;  i: integer;begin  clrscr;  for i:=0 to 9 do     a[i]:=sqr(i+1);for i:=0 to 9 do     writeln('a[',i,']=',a[i]);  Readln;end.