Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- let
- integer n,x.
- in
- read n;
- if n<10 then x:=1; else skip;fi;
- while n<10 do x:=5*x;n:=n+1;end;
- skip;
- write n;
- write x;
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement