Б) Работа с мастером функций состоит из следующих шагов: Уровень 3
Задание 3. Создайте в Excel ниже приведенную таблицу. Выполните с ней следующие операции:
а) вставьте после второй строки одну пустую строку; введите в ячейку А3 текст «а», в B3 — «h», в
СЗ - «S».
б) примените к таблице форматирование и сохраните ее.
в) определите тип данных в активной ячейки
В2
Высота
д
B
С
1 Вычисление площади треугольника
2 основание
площадь
3
4
5
10
4
2,6 4,8
6,24
5
ответ поясните.
Уровень 4
высота​

Если требуется выводить соответствующее сообщение в случае, когда таких чисел нет:
var i, x, k : integer;
Begin
 k:=0;
 for i:=1 to 5 do begin
 readln(x);
 if ((x>0) and (x<5)) or ((x>-8) and (x<-1)) then begin
   k:=k+1;
   writeln(x);
 end;
 end;
 if k=0 then writeln('нет таких чисел');
End.

Если требуется выводить соответствующее сообщение каждый раз когда число не входит в промежуток:
var i, x : integer;
Begin
 for i:=1 to 5 do begin
 readln(x);
 if ((x>0) and (x<5)) or ((x>-8) and (x<-1)) then
   writeln(x)
 else writeln(x,' не входит в промежуток');
 end;
End.

Var n : int64;

Function isPali(A : int64) : Boolean;
Var B : int64;
Begin
  B:=1;
  While B<A do B:=B*10;
  B:=B div 10;
  If A>9 then isPali:=((A div B)=(A mod 10)) and isPali(A mod B div 10) else isPali:=True;
end;

Begin
  Readln(n);
  If isPali(n) then Writeln('Это полиндром.') else Writeln('Это не полиндром.');
  Write('Его квадрат ',sqr(n));
  If isPali(sqr(n)) then Writeln(' полиндром.') else Writeln(' не полиндром.');
end.

Хотя в Pabc.net есть функция и покороче:

Function IsPali(B : Longint) : Boolean;
Begin
  IsPali:=(B=IntRevers(B));
end;