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

1 пример.Program zadacha; здесь путем ввода в программе будь-товручную через строку команды read(a); Var a:Integer;Begina:=155;End.2 пример. А здесь объявить константой.Program zadacha2;Const a=155;BeginWrite(a);End.