program traslazione;

uses Crt, Graph;

var

GraphDriver, GraphMode: Integer;

k, x,y: Integer;

begin

GraphDriver := Detect;

InitGraph(GraphDriver, GraphMode, 'c:\TP\BGI');

while k<=200 do

begin

x:=k;

y:=k;

LINE(100, 20, 200, 20);

LINE(100, 100, 200, 100);

LINE(100, 20, 100, 100);

LINE(200, 20, 200, 100);

LINE(100+x, 20+y, 200+x, 20+y);

LINE(100+x, 100+y, 200+x, 100+y);

LINE(100+x, 20+y, 100+x, 100+y);

LINE(200+x, 20+y, 200+x, 100+y);

k:=k+5;

end;

repeat until keypressed;

end.