Программа правда или действие на 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.