Составить алгоритм нахождения квадратов, кубов и корней целых чисел от1 до 100(блок – схема).

Условие ( For i := 1 to 100 do) Begin Операции(kv[i]: =sqr(a[i]); kyb[i]:=a[i]*a[i]*a[i]; kor[i]:=sqrt(a[i]);) Выводим на экран (write(kv[i],kyb[i],kor[i]) End; А массив, как и переменные kv kor и kyb Думаю с алгоритмом и блок схемой понятно будет