Очень знаменитое задание в униварситетах на компьютерных квалификациях - данное существо исследований для испытания познаний учащихся. Оказалось, что вот образчик таковой программы.
uses crt; label bye; var fname:string[40]; f: text; VsegoVopr: integer; PravOtv: integer; nOtv: integer; prav: integer; Otv: integer; st:string; p:integer; i:integer; begin if ParamCount = 0 then begin writeln(’NE [...]