===== 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.
Var x,y:integer;
begin
readln (x);
y:=2*Power(x,2) +3;
writeln (y);
end.
F= ¬(A&B + ¬C) или F = НЕ(A И B ИЛИ НЕ C)
D1)прямая горизонтальная линия
2) любой из этих рисунков