program aftorolen;
Uses Crt;
Var Qbik :mudak;
Begin
Write('aftormudak')
Readkey;
End.

Ничего личного!! Тупой стёб

http://realcoding.net/articles/turbo-pascal
вот я по этому паскаль осваивал