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

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