Составить блок схему и программу t: =(a*10)+(b*15)+(c*20) b: =10 c: =s a-любое число

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 описывается как константа (в первой строке программы)
Блок- схема скачаете по ссылке