Cоставить блок-схему и написать программу вычисления значения выражения: а=(100+8,31b^2)/(2c-13) , .

Извини с блок-схемой не а с программой
var
a,b,c:real;
begin
Writeln('Введите b');
ReadLn(b);
Writeln('Введите c');
ReadLn(c);
a:=(100+(8.31*sqr(b)))/((2*c)-13);
writeln('a= ', a);
end.