Задача №1 Составить программу проверяющую является ли слово…

var S: string; i: integer; begin write ('S='); readln (S); for i: =1 to Length (S) do if S[i] <> S[Length (S) — i+1] then begin writeln ('No'); readln; Exit; end; writeln ('Yes'); readln; end. //вторая программа var S: string; i, countA, countE: integer; begin CountA: =0; CountE: =0; write ('S='); readln (S); for i: =1 to Length (S) do if S[i]='a' then inc (countA) else if S[i]='e' then inc (countE); if countA > countE then writeln ('a > e') else if countA < countE then writeln ('a < e') else writeln ('a=e'); readln; end.