Заполните одномерный массив размерностью в 20 элементов так, чтобы каждый элемент был равен квадрату своего номера. сформированный массив вывести на экран в строку.
1.Не употреблять пищу, находясь за компьютером. 2.Перед использованием компьютера мыть руки, чтобы не загрязнять клавиатуру и мышь. 3.Не трогать пальцами монитор 4.Не выдергивать из компьютера какие-либо шнуры во время его работы. 5.Не выключать компьютер с кнопки, выдергивания шнура питания. 6.Выключать компьютер только через "пуск"-"завершение работы". 7.Находиться на расстоянии 20-30см от монитора. 8.Не делать резких движений при работе с компьютером. 9.Держать свое рабочее место в чистоте и порядке. 10.Переодически очищать компьютер от загрязнений специальными влажными салфетками. 12.Не изменять настройки, не зная результата 13.Не работать за компьютером одновременно более чем одному человеку. 14.При долгой работе с компьютером делать зарядку для глаз и тела 15.Не работать за компьютером более 3 часов в день за избежание вреда для здоровья.
Program Frank;
const n=20;
TYPE mas=array[1..n] of integer;
var a:mas;i:integer;
begin
for i:=1 to n do begin
a[i]:=sqr(i);
write(' ',a[i]);
end;
end.