[HaokaH]

Ben test etmeden veriyorum tabi pascal ile ugrasmak gerekiyor, delphide değişkeni variant tanImladIgIn an herşey bitiyor fakat bunda böyle olmuyor.. Birde şunu denermisin..
Basit bir konuyu boşa uzattIk sanIrIm

Uses Crt;

var
i,us:Integer;
sonuc,sayi:Real;

begin
repeat
sonuc:=1;
write('Sayıyı giriniz= '); readln(sayi);
write('Sayının üssünü giriniz= '); readln(us);
if us<0 then
for i:=-1 downto us do sonuc:=sonuc/sayi
else if us=0 then sonuc:=1
else if us>0 then
for i:=1 to us do sonuc:=sayi*sonuc;
writeln(sayi:0:2, ' sayisinin ', us, '. kuvveti: ', sonuc:0:2);
until 1=2;
end.