Popular posts

Apart from Hello World? "Guess the number" in Delphi:

var
  number,
  guess
  : Integer;

  correct
  : Boolean;
begin
  randomize;
  number := random(30) + 1;
  correct := false;
  while not correct do
  begin
    writeln('Guess the number:');
    readln(guess);
    if guess = number then
      correct := true
    else
      writeln('Wrong!');
  end;

  writeln('Correct!');
end.