Смотря откуда эта формула и как вы ее применяете
Похоже, что ПИ - просто функция без аргументов, т.е. ничего ставить не надо
var s: string;
a: integer;
begin
readln(a);
if a mod 2=0 then s:='четное' else s:='нечетное';
if a in [1..9] then s:=s+' однозначное число';
if a in [10..99] then s:=s+' двузначное число';
if a in [100..999] then s:=s+' трехзначное число';
write(s);
end.
Var x,y:integer;
begin
write('x = ');
readln(x);
y:=x div 10 mod 10;
writeln('y = ',y);
end.
Пример:
x = 456
y = 5
Пусть "x" - системные блоки, тогда:
2x - мониторы.
x + 8 - системные блоки после того, как принес еще 8 блоков.
Приравниваем эти уравнения, так как по условию задачи после того, как сисадмин принес еще 8 системных блоков, мониторов и блоков стало поровну.
2x = x + 8.
2x - x = 8.
x = 8.
Ответ: 8 мониторов.
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var x := readReal;
var y :=
x <= 0 ? x * x :
x <= 1 ? 1 / x :
x <= 6 ? 3.45 * x / (1 - x * x) :
x ** 3 - 7.5;
y.Println
end.
<h2>Пример</h2>
4.05
-0.907157928907645