Помогите переделать из Паскаля в СИ
program lab ;
var a,b,y:real;
x:integer;
begin
a:= 6.72; b:=4.85;
write('vvedite x='); readln(x);
case x of
1:y:=1+sqrt(a+abs(x));
7:y:=2+a*a*x*x+exp(x);
5:y:=x*sqrt(1+b*ln(a*a*x));
else
begin
writeln('znachenie x zadano neverno');
writeln('nagmi Enter');
readln;
exit;
end;
end;
writeln('x=', x:2,'y=',y:5:2);
readln;
end.