Составить программу на turbo pascal: вычислить выражение [(2а+4ь)+1]/(а+2ь+4).

Uses Crt;
var
  a,b:real;
begin
  ClrScr;
  Write('a,b='); Read(a,b);
  Writeln((2*a+4*b+1)/(a+2*b+4));
  ReadKey
end.

Тестовое решение:
a,b=3.75 -2.184
-6.9781194561E-02