Б. Однажды большая компания: пятеро мышат и два кота переправлялись через большую речку на небольшом пароме. Паромом умеют управлять и коты и мыши, но на пароме может находиться не более 5-х пассажиров. Пока они все вместе, то никто никого не обижает. Когда на берегу или на пароме мышей больше, чем котов, то коты их не трогают. Коты едят мышей, если на одного кота приходится не более двух мышей всем переправиться с левого берега на правый без потерь.

// PascalABC.NET 3.0, сборка 1088
begin
  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, сборка 1088
var
  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 входит в число

Program day;
var 
a: array[1..30] of integer; 
b, s, i, min: integer;
begin 
min := 999; 
Randomize; 
for i := 1 to 30 do   begin   
a[i] := random(9, -3);   
s := s + a[i];   
Write(a[i]:3); 
end; 
Writeln; 
Writeln('Ниже нуля '); 
for i := 1 to 30 do   begin    if a[i] > 0 then Write(i,'-го ');   
end;   
if a[i] = 0 then b := b + 1; 
Writeln; 
for i := 1 to 30 do    
if a[i] < min then min := a[i];   
Writeln('Самая низкая температура - ', min); 
Writeln('Средняя температура ноября ', s / 30);
end.