Составить программу, которая заполняет массив из 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[]\" по очереди возводятся в квадрат и полученные значения выводятся на экран.