program grafik;

{$APPTYPE CONSOLE}

uses
SysUtils;
var a,b,r:integer;
begin
writeln('Vvedite 2 koordinati tocki');
readln(a,b);
if b=5*a*a-7*a+2 then writeln ('grafik proxodit cherez zadannyu tocku')
else writeln ('grafik ne proxodit cherex zadannyu tocku');
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.