Курсовая работа: Автоматизована реєстрація і облік автомобілей

write(i+1);

gotoxy(3,4+y);

write(#179);

gotoxy(4,4+y);

write(ml);

gotoxy(24,4+y);

write(odv);

gotoxy(44,4+y);

write(gv);

gotoxy(64,4+y);

write(tp);

end;

y:=y+2;

end;

end;

readln;

end;

procedure poi;

var i:integer ; s:string;

begin

window(1,1,80,25);

if FSearch('tyu','d:\')='' then

begin

textbackground(0);

clrscr;

textcolor(132);

writeln('FAIL NE NAYDEN');

readln;

end