Вычислить значение функции, заданной в таблице. Осуществить вывод значений вводимых исходных данных и результат вычисления значения функции, сопровождая вывод наименованиями переменных — Pascal(Паскаль)

uses crt;
var a,x,y:real;
begin
clrscr;
write('x=');readln(x);
a:=2.3;
if x<1 then y:=1.5*sqr(cos(x))
else if x=1 then y:=1.8*a*x
else if (x>1)and(x<2)then y:=sqr(x-2)+6
else y:=3*sin(x)/cos(x);
write('x=',x:0:2,'  y=',y:0:2);
readln
end.