Дано натуральное число n. Найти сумму первой и последней цифры этого числа. Верно ли что данная сумма больше 10?

Дано натуральное число n. Переставить последнюю и первую цифры этого числа. Верно ли, что после перестановки число стало четным?

Дано натурa.льное число n. Найти произведение нечетных цифр числа. Верно ли, что произведение является трехзначным числом?

Дано натуральное число n. Верно ли, что в записи числа три раза встречается цифра 5?

Найти все делители натурального числа n. Верно ли, что их количество , есть четное число?

РЕШИТЕ ПЛИЗ В Pascal

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018// Внимание! Если программа не работает, обновите версию!№1begin  var n:=ReadInteger('n=');  var s:=n mod 10;  n:=n div 10;  var d:integer;  while n>0 do (d,n):=(n mod 10,n div 10);  s+=d;  Writeln('Сумма ',s);  if s>10 then Writeln('Верно') else Writeln('Неверно')end.№2begin  var s:=ReadInteger('n=').ToString;  var n:=s.Length;  (s[1],s[n]):=(s[n],s[1]);  s.Println;  if s[n].ToDigit.IsEven then Writeln('Верно') else Writeln('Неверно')end.№3begin  var n:=ReadInteger('n=');  var p:=1;  while n>0 do begin    var d:=n mod 10;    if d.IsOdd then p*=d;    n:=n div 10    end;  Writeln('Произведение ',p);  If p.InRange(100,999) then Writeln('Верно') else Writeln('Неверно')end.№4begin  var n:=ReadInteger('n=');  var k:=0;  while n>0 do begin    if n mod 10=5 then k+=1;    n:=n div 10    end;  if k=3 then Writeln('Верно') else Writeln('Неверно')end.№5begin  var n:=ReadInteger('n=');  var k:=1;  Writeln('Делители: ');  for var i:=1 to n div 2 do    if n mod i=0 then begin      Print(i);      k+=1      end;  Writeln(n);  if k.IsEven then Writeln('Верно') else Writeln('Неверно')end.