(паскаль) 1) дана строка. определить явяляется ли она перевертышем. то есть например слово казак,она и наоборот читается казак 2) определить стоимость телеграммы,если стоимомость одного слова вводится с клавиатуры

Var s,s2: string; i: integer; begin write('введите строку: '); readln(s); lowercase(s); // эту строчку убрать, если казак и казак - разные слова for i: = 1 to length(s) do       s2: =s[i]+s2; if s = s2 then write('эта строка - перевёртыш') else write('данная строка не является перевёртышем') end. если меж словами один пробел, и строка не с пробела начинается: var a,i,c: integer; s: string; begin write('введите стоимость одного слова: '); readln(a); c: =0; write('введите текст телеграммы: '); readln(s); for i: = 1 to length(s) do       if s[i] = ' ' then c: =c+a; writeln('стоимость телеграммы: ',c+a); end. если слова состоят из цифр и букв, и разделены следующими символами: пробел, тире, скобки, запятая, точка с запятой, двоеточие, точка, восклицательный знак и вопросительный знак. при этом, знак минус считается знаком тире. также считается, что предложение оканчивается разделительным символом. код pascalabc.net 3.2: var a,i,c: integer; s: string; begin write('введите стоимость одного слова: '); readln(a); c: =0; write('введите текст телеграммы: '); readln(s); for i: = 1 to length(s)-1 do       if s[i]in['а'..'я','а'..'я','ё','ё','0'..'9'] then             if s[i+1]in[' ','-','(',')',',','; ',': ','.','! ','? '] then                   c: =c+a; write(c); end. пример работы программы: введите стоимость одного слова: 1 введите текст телеграммы: ! (паскаль) 1) дана строка. определить явяляется ли она перевертышем. то есть например слово казак,она и наоборот читается казак 2) определить стоимость телеграммы,если стоимомость одного слова вводится с клавиатуры. стоимость телеграммы: 32

Паскаль var i,n,u: integer; begin read(n); for i: =1 to n do   begin   u: =u+2*i+1;   end;   writeln(u); end.