Здравствуйте, Sanek!
В этом коде переменная sboi - среднее число сбоев в сутки; Pa, Pb, Pv - искомые результаты для а, б и в. t - период времени, m количество сбоев вероятность которых нужно найти.

вычисление факториала и степени оформлены в виде функций, ответ в экспоненциальном виде.

Приложение:
program programm183655;
var sboi, Pa,Pb,Pv,t,m:real;
var i:integer; {для цикла}

{функция для расчёта степени числа}
function stp(a,x:real):real;
var y:real;
begin
y:=exp(x*ln(a));
stp:=y;
end;

{функция для расчёта факториала}
function fakt(n:integer):integer;
var yy:integer;
begin
yy:=1;
for i:=1 to n do
yy:=yy*i;
fakt:=yy;
end;

begin

{ставим значения для первого случая}
sboi:=1.5;
t:=2;
m:=0;
Pa:=(stp((sboi*t),m)*(1/(exp(sboi*t))))/fakt(0);

{ставим значения для второго случая}
t:=1;
m:=0;
Pb:=1-(stp((sboi*t),m)*(1/(exp(sboi*t))))/fakt(0);

{ставим значения для третьего случая}
t:=7;
Pv:=1;
for i:=0 to 2 do
Pv:=Pv-(stp((sboi*t),i)*(1/(exp(sboi*t))))/fakt(i);

{выводим данные на экран}
writeln(Pa);
writeln(Pb);
writeln(Pv);
readln;
end.

Здравствуйте, Sanek!
Собственно говоря, этот вопрос уже задавали.
Нужно только добавить ввод числа сбоев за сутки lambda: