Procedure vvod_dan(num:integer); begin

VvodWindow(20,2,60,2,3,0); gotoxy(15,1); write(|введите данное ‘); ocno_curs(xxl, yyl, xxl+12,yyl,1,ini); gotoxy(l. l); if yyl=6 then prover(l); if yyl=10 then prover(2); if yyl=14 then prover(3); VvodWindow(20,2/60/2,1/0); for з:=1 to 40 do begin gotoxy(j. l); wrlte(‘i’); end;

Window(60,2,61/2); gotoxy (l, l); writed’); п :=ааШ; 1е:=ааС23; r:=aaC3]; end;



.