Составить программу, которая наполняет массив из 7 элементов значениями с клавиатуры,

Программка составлена на языке Паскаль. var a: array[1..7] of integer; i, k: integer; begin for i :=1 to 7 do begin write(Введите целое число: ); readln(a[i]); end; for i :=1 to 7 do begin k := a[i] * a[i]; writeln(Квадрат числа , a[i], равен , k); end; end. В первом цикле "for i :=1 to 7 do" считывается с клавиатуры и заноситься в массив "a[]" семь целых чисел. Во втором цикле "for i :=1 to 7 do" все семь чисел из массива "a[]" по очереди возводятся в квадрат и приобретенные значения выводятся на экран.