Sheezard гони EX Kappa

uses crt;
const t=0.001;
function F(x,y:real):boolean;
begin
F:=abs(y-((1+tan(2*x))*(2*x)))<=t
end;
var x,y:real;
begin
writeln('Введите координаты (через пробел) точки x,y');
read(x,y);
if F(x,y) then writeln('Точка х принадлежит графику')
else writeln('Точка х не принадлежит графику');
x:=2.1*x-0.5;
if F(x,y) then writeln('Точка х1 принадлежит графику')
else writeln('Точка х1 не принадлежит графику');
end.