Нарисовать блок-схему и написать программу для нахождения значения выражения y=4a+12b, при а=10.

Var y,a,b:real;
begin
writeln('Введите значение B: ');
readln(b);
a:=10;
y:=4*a+12*b;
writeln('ответ: ',y);
end.