program;
var t,x:real; k,m:integer;
begin writeln('x,m'); readln(x,m);
k:=1; t:=1;
repeat t:=t*{...}
k:=k+1
until k>m;
writeln('t=',t:10:4);
readln;
end. rolleyes.gif
так може