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

write(' obem dvigatela- ',odv);

write('rasxod topliva- ',tp);

end;

end;

end;

end;

end;

{:::::::::::::::::::::::::::::::}

var e:char;r,i:byte;

begin

{clrscr;

vvod;

viv;

poi;

readln;}

repeat

clrscr;

window(1,1,80,25);

textbackground(1);

clrscr;

i:=1;

window (6,4,34,22);

menu_pickto(6);

textcolor(14);

menu_text(8,3,12,14,14,14,' Vvod',' Pokasat',' Nayti',' Viyti');

menu_vibor(7,1,14);

repeat

newreadkey(e,r);

if r=72 then