Program dimm;
uses graph,crt;
var GraphDriver, GraphMode: integer;
v,z,i,a,b,c,d,s,t,u: integer;
x,y: LongInt;
Begin
Write('Vvedite a = ');
Readln(a);
Write('Vvedite b = ');
Readln(b);
Write('Vvedite c = ');
Readln(c);
Write('Vvedite d = ');
Readln(d);
writeln;
writeln('  A(',a,';',b,')');
writeln('  B(',c,';',d,')');
writeln;
Write('Vvedite s = ');
Readln(s);
Write('Vvedite t = ');
Readln(t);
Write('Vvedite u = ');
Readln(u);
writeln;
Writeln('  Uravnenie = ',s,'X + ',t,'Y + ',u,' = 0');
y:=trunc((-u-s)/t);
x:=trunc((-u-t)/s);
a:=320+(a*20);
b:=240-(b*20);
c:=320+(c*20);
d:=240-(d*20);
writeln;
writeln('Novie Dannie: ');
writeln;
writeln('  A(',a,';',b,')');
writeln('  B(',c,';',d,')');
writeln;
writeln('Dve tochki pryamoy:');
writeln;
writeln('  X1(1;',y,')');
writeln('  X2(',x,';1)');
writeln;
x:=320+(x*20);
y:=240-(y*20);
writeln('Novie Dannie pryamoy:');
writeln;
writeln('  X1(340;',y,')');
writeln('  X2(',x,';220)');
readkey;
GraphDriver:=detect;
InitGraph(GraphDriver,GraphMode,'..\BGI');
SetBkColor(9);
SetColor(15);
SetLineStyle(0,1,1);
line(320,20,320,460);
line(20,240,620,240);
Circle(320,240,2);
z:=20;
for i:=1 to 28 do
Begin
z:=z+20;
line(z,236,z,244);
end;
v:=40;
for i:=1 to 20 do
Begin
v:=v+20;
line(316,v,324,v);
end;
{OutTextXY(324,245,'0');}
OutTextXY(338,247,'-1');
SetColor(Red);
{Circle(a,b,2);}
FillEllipse(a,b,2,2);
OutTextXY(a+3,b-10,'A');
{Circle(c,d,2);}
FillEllipse(c,d,2,2);
OutTextXY(c+3,d-10,'B');
SetColor(Green);
{Circle(340,y,2);}
FillEllipse(340,y,2,2);
OutTextXY(343,y-10,'X1');
{Circle(x,220,2);}
FillEllipse(x,220,2,2);
OutTextXY(x+3,210,'X2');
line(340,y,x,220);
readkey;
CloseGraph;
end.