Const b=10;
var a,t,c,s:integer;
begin
write('Введите а');
read(a);
c:=s;
t:=(10*a)+(15*b)+(20*c);
write('Ответ: ',t);
end.
По умолчанию s=0 (так как оно не задано).Поэтому с имеет целый тип, тогда вычисляемая величина t также имеет целый тип.Тогда а-любое, но целое число.b описывается как константа (в первой строке программы)
Блок- схема скачаете по ссылке