Составь программу и вычисли значение у: при x < 12, y=-7,8 при x = 12, y=54,4 при x > 12, y=2*х+15

Var x,y:real;
begin
write('x = '); readln(x);
if x>12
   then y:=2*x+15
  else if x=12 then y:=54.4 else y:=-7.8;
writeln('y = ',y);
end.

Пример:
x = 10
y = -7.8