Решите эти 3 задания
Заранее

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.

1) панель инструментов, главное меню, поле документа, строка состояния

2) изменить, копировать, вставить, вырезать, удалить, отменить

3) палитра, кисть, выделение цвета, эффекты, слои, холст

4) сбор данных

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