1 данные вводятся на бумагу в виде оттиска образуются при ударе цилиндрических счержаней иглой через красящуюся ленту

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.

Появится верхнем в левом углу

Объяснение:

Инструмент Копирование используется для копирования выделенного объекта в программе Paint. Это удобно, если на картинке нужно увеличить количество одинаковых линий, фигур или фрагментов текста.

На вкладке Главная в группе Изображение щелкните Выделение и перетащите указатель, чтобы выделить область или объект, который нужно скопировать.

В группе Буфер обмена щелкните Копировать (комбинация Ctrl + C).

В группе Буфер обмена щелкните Вставить (комбинация Ctrl + V).

Когда объект выделен, переместите его на новое место на изображении.