Ideone.com

fork download

copy

program Hello;
var a, b:integer;
begin
a:=4; b:=6;
while a>b do begin
a:=a+1;
writeln('a = ',a,' b = ',b);
end;
end.

Success #stdin #stdout 0s 5284KB

stdin

copy

Standard input is empty

stdout

copy

Standard output is empty

https://ideone.com/SGpPBe

language:

Pascal (fpc 3.0.4)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

Widget for compiling and running the source code in a web browser!