Помогите пожалуйста с программой на Delphi

program Project5;

{$APPTYPE CONSOLE}

uses
SysUtils,Math;
var a:Integer;
x,y:Real;
begin
{ TODO -oUser -cConsole Main : Insert code here }
Writeln('Vvedite x,a');
read(x,a);
y:=0;
case a of
3:y:=(Exp(x)+a);
5:y:=Ln(Abs(x-a));
7,9:y:=Cos(Sqr(x)+6)/sin(Sqr(x)+6);
else y:=Power(a,6)-log10(Abs(x));
end;
Writeln('y=',y:0:2);

end.
Программа запускается но не считает или закрывается совсем. Вот само условие на фото.

readln не помогло!!!