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

end;

procedure vv;

var i, n:integer;

begin

window (1,1,40,25);

textbackground(0);

clrscr;

textcolor(2);

pamka (1,1,39,25);

window (2,2,38,25);

gotoxy (6,1);

textcolor(6);

writeln ('ZAPOLNENIE UCHOTA VODITELEY');

window (2,3,38,25);

textcolor(7);

write ('Vvedi kol-vo voditeley – ');

readln(n);

assign (f, 'd:\po');

rewrite(f);

for i:=1 to n do

begin

with bas do

begin

clrscr;

gotoxy (8,1);

writeln ('VODITEL-', i);

write ('Vvedi F.I.O voditela – '); readln(fio);

write ('Vvedi avto na kotorom on ezdiet – '); readln(av);

write ('Vvedi seriu i nimer pasporta voditela – '); readln(pas);