Помогите пожалуйста с информатикой! (паскаль)

"результат работы кода в виде скриншота окна программы с отображением кода и полученного результата." - это уже немного загнул(а) препод. Ибо в Turbo Pascal это невозможно, т.к. программа выполняется в отдельном окне, текст кода выполняющаяся программа закрывает. Вот в Pascal ABC, например - да, возможно, но Pascal ABC - не полноценный Pascal, а несколько урезанный (более того, даже не совсем Pascal, а сильно переработанный C#, если мне память не изменяет).

Ладно, не будем придираться к заданию, тем более, что смысл понятен, да и толку от этих придирок чуть. Вот код программы:

 Program F1; 
uses crt; 
var x: real; 
begin 
clrscr; 
writeln ('Введите с клавиатуры значение переменной x (число), после чего нажмите клавишу Enter. При вводе дробных значений, целую часть от дробной отделяйте точкой, а не запятой.'); 
write ('x='); 
readln (x); 
writeln ('Ответ: y(', x, ') = ', 3-7.5*x+sqr (x)-((sqr (x)+2*x-8)/3)); 
write ('Программа завершена. Для выхода нажмите клавишу Enter'); 
readkey; 
end. 

А вот блок-схема (вместо "y=" в прямоугольник перепишите формулу из задания вместе с этой дробью (дополните, т.е. y=3-7,5x...)- просто иначе может слишком мелким текст у меня получиться, трудночитаемым):