Guest User

Untitled

a guest
Apr 22nd, 2018
73
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.16 KB | None | 0 0
  1. {TEST AC - GPC Pascal}
  2.  
  3. program TEST;
  4.  
  5. var n:integer;
  6.  
  7. begin
  8. while true do
  9. begin
  10. readln(n);
  11. if n = 42 then begin
  12. break;
  13. end;
  14. writeln(n);
  15. end;
  16. end.
Add Comment
Please, Sign In to add comment