помогите пожалуйста создать программу по программе паскаль !!!

Uses crt;

var c,b,e,a:real;

begin

readln (c,b,e);

a:=((56*c+38*b)*20) / (5*(e+b+c));

writeln (a);

end.