👤

Alcatuitimi un program in PascalABC care sa aiba 2 variabile si eu sa pun numerele la variabile de exemplu:
Var num1,num2:integer;
write('Introdu Primul Numar: ')
readln(Num1);
write('Introdu Al 2-lea Numar: ')
readln(Num2)
Si primul numar sa il ridic la puterea numarului al 2-lea, de exemplu daca numarul 1 e 2 iar al 2-lea e 5 numarul 2 sa il ridic la puterea a 5-a. Va rog ajutatima urgent dau coroana si 20 puncte.


Răspuns :

var a,p:real;

i,n:integer;

begin

writeln('Numarul:');

readln(a);

writeln('Puterea la care trebuie ridicat:');

readln(n);

p:=1;

for i:=1 to n do

p:=p*a;

writeln('Rezultatul: ',p);

end.