Pascal

program ideone;
var x: integer;
begin
	repeat
		readln(x);
		if x<>42 then writeln(x);
	until x=42
end.

PREVIOUS	NEXT

Code Example
Powershell :: CMD & Powershell History
Powershell :: Take ownership of a folder
Powershell :: install python command line windows
Powershell :: How to test HDD health in PowerShell
Powershell :: How to save Jira attachments using powershell
Gdscript :: godot find_node()
Gdscript :: godot 3d slowly rotate towards object
Clojure :: ex: Clojure define expected time
Abap :: the interface between the abap dictionary and the underlying database management system
Erlang :: erlang exit from shell
Assembly :: 64 bit assembly Hello world
Assembly :: set assembly highligh vim
Assembly :: re optional
Assembly :: google appscripts cell get background color
Javascript :: jquery vslidation remove spaces from input
Javascript :: js on page ready
Javascript :: open ilnk target js
Javascript :: refresh window js
Javascript :: jquery accept only excel file
Javascript :: check if a variable is undefined jquery
Javascript :: media query js
Javascript :: change input placeholder text jquery
Javascript :: get current url js
Javascript :: convert to objectid mongoose
Javascript :: javascript async delay
Javascript :: javascript refresh page every 30 seconds
Javascript :: how to change a css variable with javascript
Javascript :: hide header react navigation
Javascript :: listing dir by nodejs
Javascript :: javascript celcius to farenheit