Контрольная работа: Автоматизований облік надходження, зберігання і збуту продукції на товарній базі

begin

na4 (s5,4,0);

textbackground(1);

textcolor(14);

window (15,3,35,10);

clrscr;

writeln(s1); writeln;

writeln(s2); writeln;

writeln(s3); writeln;

write(s4); writeln;

window (15,15,35,23);

clrscr;

writeln(s6); writeln;

writeln(s7); writeln;

writeln(s8); writeln;

write(s9); writeln;

end;

{–}

procedure ramo4ka (x1, y1, x2, y2, a, b:byte);

var i:integer;

begin

textbackground(a);

textcolor(b);

window (x1, y1, x2, y2);

write ('.');

for i:=1 to (x2-x1) – 1 do

begin

write ('.');

end;