Помогите пожалуйста создать программу по программе паскаль !!!
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.