Требуется найти ошибку

program asghm;
var a,b,h,s:real; f:integer;
begin
writeln('Введите номер значения');
readln(f);
case f of
1: begin writeln('Введите значение катета'); readln(a); S:=3/4*a*a; h:=sqrt(3)/2*a; b:=a*a+a*a; writeln(b:0:2,h:0:2,s:0:2);
2: begin writeln('Введите значение гипотенузы'); readln(b); a:=b*b-a*a; h:=sqrt(3)/2*a; b:=a*a+a*a; writeln(a:0:2,h:0:2,s:0:2);
3: begin writeln('Введите значение высоты'); readln(h); a:=sqrt(3)/2*h; b:=a*a+a*a; S:=3/4*a*a; writeln(b:0:2,a:0:2,s:0:2);
4: begin writeln('Введите значение площади'); readln(s); a:=sqrt(4/sqrt(3)*s); S:=3/4*a*a; h:=sqrt(3)/2*a; b:=a*a+a*a; writeln(b:0:2,h:0:2,a:0:2);
end;
end.

program asghm;
var a,b,h,s:real; f:integer;
begin
writeln('Введите номер значения');
readln(f);
case f of
1: begin
    writeln('Введите значение катета');
    read(a);
    S:=3/4*a*a;
    h:=sqrt(3)/2*a;
    b:=a*a+a*a;
    writeln(b:0:2,h:0:2,s:0:2);
   end;
2: begin
    writeln('Введите значение гипотенузы');
    read(b);
    a:=b*b-a*a;
    h:=sqrt(3)/2*a;
    b:=a*a+a*a;
    writeln(a:0:2,h:0:2,s:0:2);
   end;
3: begin
    writeln('Введите значение высоты');
    read(h);
    a:=sqrt(3)/2*h;
    b:=a*a+a*a;
    S:=3/4*a*a;
    writeln(b:0:2,a:0:2,s:0:2);
   end;
4: begin
    writeln('Введите значение площади');
    read(s);
    a:=sqrt(4/sqrt(3)*s);
    S:=3/4*a*a;
    h:=sqrt(3)/2*a;
    b:=a*a+a*a;
    writeln(b:0:2,h:0:2,a:0:2);
   end;
end;
end.