Напишите программу, которая: а) определяет, есть ли среди цифр заданного целого трехзначного числа одинаковые; б) явл. ли число "перевертышем", т.е. числом, десятичная запись которого читается одинаково слева направо и справа налево.

А) program cifr; uses crt; var n,l: integer; s: string; begin read(n); str(n,s); l: =length(s);   if (s[1]< > s[2]) and (s[2]< > s[3]) and (s[1]< > s[3])       then begin writeln('одинаковых цифр нет') end       else writeln('одинаковые цифры присутствуют'); end. б) program stroke; uses crt; var s: string; n,i,j,l: integer; begin   readln(n);   str(n,s);   l: =length(s);   j: =0; for i : = 1 to l div 2 do begin   if s[i]=s[length(s)-i+1]       then j: =1 end; if j=1 then        writeln('да, число является палиндромом')       else writeln('нет, число не является палиндромом'); end.

Function pow(m: real; n: integer): real; var i: byte; m_1: real : = m; begin   if (n > 0) then     for i : = 2 to n do       m_1 : = m_1 * m   else     if (n = 0) then       m_1 : = 1     else       m_1 : = 1 / pow(m, abs(n));   pow : = m_1; end; procedure adddec(i: integer; var m: real); begin   m : = m + i * pow(10, -1 * length(inttostr(; end; var   i: byte;   r: real; begin   for i : = 1 to 100 do     r : = r + 1;   adddec(225, r);   writeln(r); end.

Var   a: system.datetime;   i: byte;     begin   readln(i);   a : = (new system.datetime(1990, 1, (i).adddays(2);   case a.dayofweek of       system.dayofweek.monday: writeln('пн');     system.dayofweek.tuesday: writeln('вт');     system.dayofweek.wednesday: writeln('ср');     system.dayofweek.thursday: writeln('чт');     system.dayofweek.friday: writeln('пт');     system.dayofweek.saturday: writeln('сб');     system.dayofweek.sunday: writeln('вс');   end; end.