Чему будет равно значение переменной p при a=4 и n=3 после выполнения программы program test var a, p: integer; i, n: real; begin write (введите два натуральных числа) readln (a,n); p: =1 for i: =1 to n do p: =p*a; writeln (p=,p) end.

На самом деле, программа и правда из рук вон криво написана, начиная от простой понятности и лаконичности и заканчивая работо

Рабочий вариант, если я правильно понял ваш код:
Program Yolo;
Uses Crt;
Var a: integer; i, n: byte; p: longint;
Begin
  ClrScr;
 Writeln('Введите число и его степень.');
 Readln(a, n);
 p:=1;
 For i:=1 to N do
  p:=p*a;
 Writeln('Получившиеся число: ', p);
 Readln;
End.

4 в степени 3 будет равен 64.