Program jmia; var a,b,c,d,e,f,h: real; bigin readln(a,b,c,d,e,f,); d: =(c-3*a*a)/18,5-(a*a+b*b)/b-a+(a+c*c)/3*c*c; e: *b-d+a*(a/c)+(2*b+d)*(2*b+d)*2,5)/(3*a+c*c-d))+27*27*c; f: =3*e+(d/15)-a+(c*c*b/7); h=((a-b=35*d+f)/(f-*c writeln(h) end. где здесь

Исправлены СИНТАКСИЧЕСКИЕ ошибки:
Program jmia; 
var a,b,c,d,e,f,h:real; 
begin
readln(a,b,c); 
d:=(c-3*a*a)/18.5-(a*a+b*b)/b-a+(a+c*c)/3*c*c; 
e:=((b*b-d+a*(a/c)+(2*b+d)*(2*b+d)*2.5)/(3*a+c*c-d))+27*27*c; 
f:=3*e+(d/15)-a+(c*c*b/7); 
h:=((a-b+35*d+f)/(f-a))-21*c;
writeln(h);
end.