написать что это программа сделала .

Вот:

Объяснение:

Для быстрого прототипирования, то есть быстрого изготовления прототипов моделей и объектов для дальнейшей доводки. Уже на этапе проектирования можно кардинальным образом изменить конструкцию узла или объекта в целом. В инженерии такой подход существенно снизить затраты в производстве и освоении новой продукции.

Для быстрого производства — изготовление готовых деталей из материалов, поддерживаемых 3D-принтерами. Это отличное решение для мелкосерийного производства.

Изготовление моделей и форм для литейного производства.

Конструкция из прозрачного материала позволяет увидеть работу механизма «изнутри», что в частности было использовано инженерами Porsche при изучении тока масла в трансмиссии автомобиля ещё при разработке.

Производство различных мелочей в домашних условиях.

Производство сложных, массивных, прочных и недорогих систем. Например, беспилотный самолёт Polecat[en] компании Lockheed, большая часть деталей которого была изготовлена методом скоростной трёхмерной печати.

Изготовление лекарств, протезов и органов.

Для строительства зданий и сооружений[12][13].

Для создания компонентов оружия (Defense Distributed). Существуют эксперименты по печати оружия целиком[14].

Производства корпусов экспериментальной техники (автомобили[15], телефоны, радиоэлектронное оборудование)

Пищевое производство[16].

1. Для цикла For

var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  for i := 1 to N do
    p:=p*x;
  writeln(x,' в степени ',n,' равно ',p );
end.

2. Для цикла While
var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  i:=1;
  while i<=n do begin
    p:=p*x;
    i:=i+1;
  end;
  writeln(x,' в степени ',n,' равно ',p );
end.

3. Для цикла Repeat

var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  i:=1;
  repeat
    p:=p*x;
    i:=i+1;
  until i>n;
  writeln(x,' в степени ',n,' равно ',p );
end.