программка правда либо действие на abc pascal

Что она должна делать?

программка в виде забавы правда либо деяния

Что она должна делать?

программка в виде забавы правда либо деяния

Program igra;var a,b,c:integer;beginwriteln('Правда или действие? Если выбираете правду, введите 1, если деяние 2');read(a);if a=1 then writeln('Сколько для тебя лет?')else writeln('Подтянись 5 раз');writeln('Правда или деяние? Если выбираете правду, введите 1, если деяние 2');read(a);if a=1 then writeln('Сколько стоит твой компьютер?')else writeln('Пробеги вокруг техникума 5 раз');writeln('Правда или деянье? Если избираете правду, введите 1, если деяние 2');read(a);if a=1 then writeln('Какой человек самый досадный для тебя?')else writeln('Не садись целый час');end.