В общем программы в текстовике, я их проверял они работают
PROGRAM LOL;
VAR S:STRING;
I,K,L:INTEGER;
BEGIN
READLN(S);
for i:=1 to length(s) do
begin
if ('a'<=s[i]) and (s[i]<='z') then
k:=k+1;
if('A'<=s[i]) and (s[i]<='Z') then
k:= k+1;
if ('0'<=s[i]) and (s[i]<='9') then
l:=l+1;end;
if(k>l) then
write('в тексте больше букв')
else write('в тексте больше чисел');
<span>end.</span>
Алгоритм конец есть начало и конец
3430000.............................
var n,i:longint;
function polin(n:longint):boolean;
var i,j:longint;
s:string;
itog:boolean;
begin
itog:=true;
str(n,s);
if length(s)=1 then itog:=false;
for i:=1 to length(s) do begin
j:=length(s)-i+1;
if s[i]<>s[j] then itog:=false; end;
polin:=itog;
end;
BEGIN
n:=99;
writeln('Chisla: ');
for i:=1 to n do
if polin(i*i) then
writeln(i,' (',i*i,')');
end.