Paste Search Dynamic
Recent pastes
repeat until 42
  1. program application;
  2. var x: integer;
  3. begin
  4.         repeat
  5.                 readln(x);
  6.                 if x<>42 then writeln(x);
  7.         until x=42
  8. end.
Parsed in 0.001 seconds