Advertisement
Guest User

Untitled

a guest
Jun 28th, 2016
55
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.16 KB | None | 0 0
  1. Kod:
  2.  
  3. begin
  4. repeat
  5. instrukcje
  6.  
  7. writeln('Czy chcesz zakończyć? [t/n]');
  8. repeat
  9. znak:=readkey;
  10. until ((znak='t') or (znak='n'));
  11.  
  12. until (znak='t');
  13.  
  14. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement