program tennis;

uses graph,crt;

var vga,vgahi,i,j,scoreA,scoreB,x,y,xb,x1a,y1a,x2a,y2a,x1b,y1b,x2b,y2b:integer;
    engagement,key:char;

begin

vga:=9;
vgahi:=2;
initgraph(vga,vgahi,'c:\tp7\bgi');
setlinestyle(0,0,3);
line(0,0,640,0);
line(640,480,0,480);
line(320,0,320,480);
scoreA:=0;
scoreB:=0;
xb:=0;
x1a:=20; y1a:=230; x2a:=20; y2a:=270;
x1b:=620; y1b:=230; x2b:=620; y2b:=270;
engagement:='a';
line(x1a,y1a,x2a,y2a);
line(x1b,y1b,x2b,y2b);
x:=10; y:=10;
repeat
begin
     key:=readkey;
     case key of
     'a' : begin
           setcolor(black);
           line(x1a,y1a,x2a,y2a);
           y1a:=y1a-8; y2a:=y2a-8;
           setcolor(white);
           line(x1a,y1a,x2a,y2a);
           readkey;
           end;
     'w' : begin
           setcolor(black);
           line(x1a,y1a,x2a,y2a);
           y1a:=y1a+8; y2a:=y2a+8;
           setcolor(white);
           line(x1a,y1a,x2a,y2a);
           readkey;
           end;
     'p' : begin
           setcolor(black);
           line(x1b,y1b,x2b,y2b);
           y1b:=y1b-8; y2b:=y2b-8;
           setcolor(white);
           line(x1b,y1b,x2b,y2b);
           readkey;
           end;
     '!' : begin
           setcolor(black);
           line(x1b,y1b,x2b,y2b);
           y1b:=y1b+8; y2b:=y2b+8;
           setcolor(white);
           line(x1b,y1b,x2b,y2b);
           readkey;
           end;
     end;
end;

until key=' ';


readln;
end.