С клавиатуры вводят слово. Составить программу, которая: а) определяет количество…

uses crt; var s: string; beginwriteln ('Напишите слово'); readln (s); writeln (length (s) ,' символов'); writeln (s[1] ,' первый символ ', s[2] ,' второй символ ', s[length (s) ] ,' последний символ'); if (s[length (s) ]=s[1]) then begin writeln ('совпадают'); end else writeln ('не совпадают'); if (length (s) mod 2=0) then begin writeln ('четное кол-во'); end else writeln ('не четное'); end.