Решить ! нужно ! идет урок , а я нечего не знаю)

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.

Pascalabc.net 3.4.0, сборка 1671 от 31.05.2018 внимание! если программа не работает, обновите версию! begin   var a: =readlnstring.towords(arr(',','.'));   var (i,ssg): =(1,'аеёиоуыэюя');   var sg: =['а','е','ё','и','о','у','ы','э','ю','я'];   while i< =a.length do begin       foreach var c in a[i].tochararray do           if c in sg then exclude(sg,c);       i+=2       end;   for var j: =ssg.length downto 1 do       if not (ssg[j] in sg) then delete(ssg,j,1);   ssg.tochararray.println(',') end.