PascalABC.NET
begin
var x := ReadReal('x =');
var y := x * x + 1.8;
var k: real;
if y < 10 then
k := Sin(y)
else if y > 20 then
k := Tan(y)
else
k := y * y;
Print(k)
end.
