Помогите пожалуйста сделать! В пасккале! 1. Ввести любую букву определить гласная…

// первая программаvar a: char; begin write ('введите букву '); readln (a); if a in ['а', 'о', 'е', 'и', 'у', 'я', 'ы', 'А', 'О', 'Е', 'И', 'У', 'Я', 'Ы'] then writeln ('гласная') else writeln ('негласная'); end. //вторая программаvar a: integer; begin write ('введите число '); readln (a); if a mod 2=0then writeln ('четное') else writeln ('нечетное'); end. //третья программаvar a: string; begin write ('введите название дня недели '); readln (a); a: =LowerCase (a); if a='понедельник' then writeln ('номер этого дня — 1'); if a='вторник' then writeln ('номер этого дня — 2'); if a='среда' then writeln ('номер этого дня — 3'); if a='четверг' then writeln ('номер этого дня — 4'); if a='пятница' then writeln ('номер этого дня — 5'); if a='суббота' then writeln ('номер этого дня — 6'); if a='воскресенье' then writeln ('номер этого дня — 7'); end.