Pascal

program ideone;
var x:byte;
begin
	readln(x);
	while x<>42 do
	begin
		writeln(x);
		readln(x)
	end
end.

PREVIOUS	NEXT

Code Example
Pascal :: Pascal Game
Pascal :: pascal cheat sheett
Powershell :: Take ownership of a folder
Powershell :: How to display firewall rule ports with powershell
Powershell :: Auto-open DevTools on every new tab For powershell on Windows
Gdscript :: godot get global position 3d
Gdscript :: GDscript classes
Clojure :: clojure
Abap :: abap if statement
Cobol :: gatsby with yarn
Assembly :: sqlalchemy filter date today
Assembly :: wstring to lpcwstr
Assembly :: iterate over tqdm range
Assembly :: gridbaglayout span
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