Помогите пожалуйста, очень надо, заранее огромное спасибо ​

Программа:

var

 n:integer;

 s:string;

begin

 readln(s);

 readln(n);

 case s of

 'Стандарт','стандарт': writeln(3800*n);

 'Супериор','супериор': writeln(5500*n);

 'Люкс','люкс': writeln(7000*n);

   else writeln('Error');

 end;

end.