Создать массив, каждый элемент которого равен квадрату своего номера.

Program n1;
const n=10;
var a: array [1..n] of integer;
i: integer;
begin
for i:=1 to n do a[i]:=i*i;
for i:=1 to n do writeln(a[i]);
end.

var j, a, b, n: integer;

label 1;

begin

1: randomize;

  a: = random (9);

  b: = random (9);

  write (a, '*', b, '=');

  read (n);

  if n = (a * b) then writeln ('відповідь вірний! ')

            else writeln ('відповідь неправильний! ');

  writeln ('продовжуватимеш? ');

  writeln ('якщо так то натисни 1');

  writeln ('якщо немає то натисни 2');

  read (j);

  if j = 1 then goto 1;

  if j = 2 then writeln ('до побачення! ');

end.

начебто так, точно не пам'ятаю.

объяснение:

  аристотель систематизировал философию по самым разным основаниям, однако в целом он выделял в ней следующие разделы.

теоретическая  философия, целью которой является не достижение практических результатов, а знание, как таковое. она, в свою очередь, делится на: а) , или натурфилософию, которая имеет дело с материальными объектами, подверженными изменению; b) , которая имеет дело с неизменяемым, но неотделенным (от материи); с) , которая изучает отделенное (трансцендентное) и недвижимое. (таким образом, включает в себя то, что мы называем естественной теологией.)

практическая  философия имеет дело главным образом с политической наукой, но в качестве подчиненных дисциплин изучает стратегию, и риторику, поскольку эти науки решают и в целом подчинены политической науке.

поэтическая  философия, так же как и практическая (включающая этические действия в более широком или политическом смысле), имеет дело не с действием, как таковым, а с его результатом и по своим целям и намерениям является теорией искусства1.