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

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