Неозаглавленный

program prrgegergh;
var
  Q: real; 
begin
 writeln('Введите число Q:');
  readln(Q);
if (Q > 9) and (Q <= 90) then
    Q := Q + 6;
writeln('Результат: ', Q:0:2); 
end.