Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- start
- begin
- a:integer
- b:integer
- cont:integer
- cont <- 0
- write ("a")
- read (a)
- write ("b")
- read (b)
- while (a =/= b) do
- begin
- end
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement