루저코드 - 파스칼 버전

http://lovos.egloos.com/2471870
http://mutnauq.egloos.com/5121617
http://purely.egloos.com/2471894

C, C#, 피똥 등 메이저 언어는 이미 나와서 재미 없어서 파스칼로 짭니다.
컴파일은 Free Pascal로...

program Loser;

var
    height: double;
begin
    writeln('Luser Indicator');
    write('Input your height (cm): ');
    readln(height);

    if height >= 180 then begin
        writeln('Congratulations! You are a winner!');
    end
    else begin
        writeln('You LUSER, why do you live?');
    end;
end.

loser.pas

loser.exe

이러다 이거 헬로월드에 버금가는 프로그램이 되는게 아닐지...;;