uses crt,graph;
var
driver,bzdura:integer;
a,b,x,y,z:integer;
s:string;
procedure xiy;
 begin
  cleardevice;
  outtextxy(1,4,'wspolczynnik a:');
  gotoxy(16,1);
  read(a);
  outtextxy(1,20,'wspolczynnik b:');
  gotoxy(16,2);
  read(b);
  outtextxy(1,36,'x: ');
  gotoxy(3,3);
  read(x);
  y:=(a*x-b)*5;
 end;
begin
 clrscr;
 driver:=0;
 bzdura:=0;
 initgraph(driver,bzdura,'c:\bp\bgi');
 repeat
 xiy;
 line(320,0,320,480);
 line(0,240,640,240);
 moveto(320,240);
 linerel(x,y);
 s:=readkey;
 until s='q';
 readln;
 readln;
end.