Помогите пожалуйста
Что будет выведено на экран в результате выполнения программы, если в ответ на приглашение введено слово cat?
Var x,y: char;
Begin
Writeln (‘введите несколько символов’);
Readln (x,y);
Writeln (x,y,y);
End.
А) cat б) ccc в) caa г) ca
2.Как будут выведены значения переменных А и В операторами writeln (A); writeln (B);
а) через строку; б) через пробел в) в столбик г) слитно

3.Какой тип данных в языке Pascal предназначен для хранения символьной информации?
а) real б) integer в) char г) byte

4. Есть ли ошибки в записи команды: Readln (введи радиус, R)
а) нет ошибок б) пояснительный текст не заключен в апострофы

в) пояснительный текст не нужен г) лишнее слово “введи”

5. При выполнении операции присваивания символа переменной
а) символ заключается в кавычки б) символ записывается через пробел от знака присваивания в) символ заключается в апострофы

г) символ записывается в скобках Задачи по теме «Обработка текстовых данных»

1. Составить программу подсчета количества вхождений буквы “а” в заданном тексте.

2. Даны две строки, выяснить совпадают ли их длины.

1 - в) caa2 - в) в столбик3 - в) char4 - в) пояснительный текст не нужен5 - в) символ заключается в апострофы1)Var s1: string;i,a:integer;BeginWriteln ('введите текст');Readln (s1);for i:=1 to length(s1) doif (s1[i]='а')or(s1[i]='a') then a:=a+1;writeln('количество букв а в тексте: ',a);End.2)Var s1,s2: string;BeginWriteln ('введите первую строку');Readln (s1);Writeln ('введите вторую строку');Readln (s2);if length(s1)=length(s2) then writeln('длины строк совпадают') else writeln('длины строк не совпадают') End.