clrscr;
write('Zadaj suradnicu x: ');
readln(x);
write('Zadaj suradnicu y: ');
readln(y);
if 2 * x - 7 - y = 0 then
writeln('Bod na suradnicach ',x:5:2,' ,',y:5:2,' lezi na priamke.')
else
writeln('Bod na suradnicach ',x:5:2,' ,',y:5:2,' nelezi na priamke.');
readln;