Koristite zastareli pregledač. Možda neće pravilno prikazivati ove ili druge veb strane. Trebalo bi da ga nadogradite ili koristite alternativni pregledač.
Prvi zadatak:
Program Stepen;
var
x,n,s:integer;
i:integer;
begin
writeln ('Unesite realan broj x');
write ('x= ');
read (x);
writeln ('Unesite stepen broja');
write ('n= ');
read (n);
s:=1;
for i:=1 to n do
begin
s:=s*x;
end;
write (n,' stepen broja...