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.