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

write(#179);

end;

end;

x:=0;

for j:=1 to 3 do

begin

y:=4;

for i:=1 to 10 do

begin

gotoxy(20+x,y);

write(#197);

y:=y+2;

end;

x:=x+20;

end;

textcolor(3);

gotoxy(5,3);

write('model mahini');

gotoxy(24,3);

write('obem dvigatela');

gotoxy(44,3);

writeln('god vipuska');

gotoxy(61,3);

write('rashod topliva');

end;

{.............................................}

procedure vvod;

var st:string; i,n:integer;

begin