program 2z3; const m=1; i:=1; var k,n,m,i:real; begin readln (n); readln (k); if i<=n then begin m:=m*k; i:=i+1 else writeln ('m='m); readln end.
Яндекс