Please note, this is a STATIC archive of website www.tutorialspoint.com from 11 May 2019, cach3.com does not collect or store any user information, there is no "phishing" involved.
Program calculatepower;
var x, y, z :integer;
begin
z:= 1;
writeln('Input the value of X: ');
readln(X);
writeln('Input the value of Y: ');
readln(Y);
Z:= 1;
while Y > 0 do
begin
z := Z * X;
Y := Y - 1;
end;
writeln('The value of Z is ', Z);
end.
Advertisements
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy.
AcceptLearn more