066536 / 962Б / 962b / Текстовый документ

uses graph,crt;
var grmode: integer;
grdriver: integer;
up,q: integer;
left: integer;
b: boolean;

procedure slovo;
begin
line(left,up,left+80,up);
line(left+40,up,left+40,up+80);

line(left+90,up,left+90+80,up);
line(left+90,up+40,left+90+80,up+40);
line(left+90,up+80,left+90+80,up+80);
line(left+90,up,left+90,up+80);

line(left+180,up,left+180+80,up);
line(left+180,up+80,left+180+80,up+80);
line(left+180,up,left+180,up+80);

line(left+270,up,left+270+80,up);
line(left+270+40,up,left+270+40,up+80);
end;

begin
clrscr;
grdriver:=detect;
left:=200;
initgraph(grdriver,grmode,'');

while q<>1000 do begin
delay(1200);
q:=q+1;
if(up+80=getmaxy) then b:=true;
if(up=0) then b:=false;
if(b=false) then up:=up+1
else up:=up-1;
cleardevice;
slovo;
end;
closegraph;
end.