Написать программу решения задачи: Дано натуральное число N и цифра A. Написать программу, определяющую:
а) количество цифр в числе;
b) равна ли первая цифра числа последней цифре;
с) входит ли цифра A в запись этого числа.

// PascalABC.NET 3.0, сборка 1088begin  var n:=ReadLnString('Введите число: ');  n:=n.Where(x->x in ['0'..'9']).JoinIntoString('');  Writeln('Принятое число: ',n);  var a:=ReadLnChar('Введите искомую цифру: ');  Writeln('Количество цифр в числе равно ',n.Length);  if n[1]=n[n.Length] then Writeln('Первая цифра равна последней')  else Writeln('Первая цифра не равна последней');  if Pos(a,n)>0 then Writeln('Цифра ',a,' входит в число')  else Writeln('Цифра ',a,' не входит в число')end.Тестовое решение:Введите число: тут спрятано 456. по частям 764 наше 03числоПринятое число: 45676403Введите искомую цифру: 0Количество цифр в числе равно 8Первая цифра не равна последнейЦифра 0 входит в число"Школьный вариант"// PascalABC.NET 3.0, сборка 1088var  n:longint;  i,k:integer;  sn:string;  a:char;begin  Write('Введите число: '); Readln(n);  Str(n,sn);  Write('Введите искомую цифру: '); Readln(a);  k:=Length(sn);  Writeln('Количество цифр в числе равно ',k);  if sn[1]=sn[k] then Writeln('Первая цифра равна последней')  else Writeln('Первая цифра не равна последней');  if Pos(a,sn)>0 then Writeln('Цифра ',a,' входит в число')  else Writeln('Цифра ',a,' не входит в число')end.Тестовое решение:Введите число: 3476573Введите искомую цифру: 7Количество цифр в числе равно 7Первая цифра равна последнейЦифра 7 входит в число