Программирование в паскале: 1.1 Даны 2 слова. Определить, какое из двух слов длиннее и на сколько. 1.2 Записано предложение. По последнему символу определить тип предложения. (повествовательное, вопросительное или восклицательн...

var      a, b: string;         c: integer; begin       writeln('Введите первое слово: ');       readln(a);       writeln('Введите второе слово: ');       readln(b);       c := length(a) - length(b);       if c = 0 then writeln('Длины слов равны')       else if c > 0 then writeln('Первое слово длиннее второго на ', c)       else writeln('Второе слово длиннее первого на ', -c) end. 2) var a: string; begin       writeln('Введите предложение: ');       readln(a);       case a[length(a)] of             '.': writeln('Предложение повествовательное');        '!': writeln('Предложение восклицательное');        '?': writeln('Предложение вопросительное');       end; end. 3) var      a: string;         t: char; begin       writeln('Введите слово: ');       readln(a);       t := a[1];       a[1] := a[length(a)];       a[length(a)] := t;       writeln('Полученное слово: ', a) end.