Найдите значение с, если с находится по формуле с=(3*а*а+в/*а+3*в/в*в+1)

Если нужно программа, то вот:
Program n1;
var a,b,c:real;
begin
write('a=');
read(a);
write('b=');
read(b);
c:=((3*a*a+b)/4)-((a*a+3*b)/(b*b+1));
write('c=',c);
end.