Объявите переменную а и присвойте значение 155

1 пример.
Program zadacha; здесь путем ввода в программе будь-то
вручную через строку команды read(a); 
Var a:Integer;
Begin
a:=155;
End.

2 пример. А здесь объявить константой.
Program zadacha2;
Const a=155;
Begin
Write(a);
End.