Ирина упаковывает новогодние подарки. На прямоугольную коробку с известными длиной, шириной и высотой ей нужен прямоугольный лист красивой бумаги, чья длина равна сумме высоты и ширины подарка, а ширина - длине подарка. Кроме того, нужно оставить 5 см на швы. Ленточка нужна для обвязки подарка по периметру (в любом направлении), на бант тратится 20 см. На выходе нужен размер листа (длина х ширина ) и длина ленты. Какие данные нужно предоставить на вход? Напишите текст программы.​

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.