Таблица типа
«Объекты- свойства»

Свойства:

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

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.