Ideone.com

fork download

copy

var s, n: integer;
begin
s := 400;
n := 100;
while s - n >= 100 do begin
s := s + 20;
n := n + 40
end;
writeln(s)
end.

Success #stdin #stdout 0s 4380KB

stdin

copy

Standard input is empty

stdout

copy

https://ideone.com/kJHfZM

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!