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

end;

write (':');

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

begin

write ('.');

end;

write (':');

end;

{–}

procedure newreadkey (var a:char; var b:byte);

begin

b:=0;

a:=readkey;

if a=#0 then

b:=ord(readkey);

end;

{–}

procedure izi (x, y:byte; s1, s2, s3, s4:string);

begin

gotoxy (x, y);

write(s1);

gotoxy (x+15, y+2);

write(s2);

gotoxy (x, y+4);

write(s3);

gotoxy (x+15, y+6);

write(s4);

end;

{–}