Advertisement
Guest User

Untitled

a guest
Dec 12th, 2018
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.13 KB | None | 0 0
  1. let
  2. integer n,x.
  3. in
  4. read n;
  5. if n<10 then x:=1; else skip;fi;
  6. while n<10 do x:=5*x;n:=n+1;end;
  7. skip;
  8. write n;
  9. write x;
  10. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement