Pascal (fpc 3.0.4) sample

Doubtful Deer answered on May 16, 2022 Popularity 1/10 Helpfulness 1/10

answer Pascal (fpc 3.0.4) sample

Comment

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

Popularity 1/10 Helpfulness 1/10 Language pascal

Source: ideone.com

Tags: pascal

Link to this answer
Share Copy Link

Contributed on May 16 2022

Doubtful Deer

0 Answers Avg Quality 2/10

Continue with Google

By continuing, I agree that I have read and agree to Greppers's Terms of Service and Privacy Policy.

Oops, You will need to install Grepper and log-in to perform this action.