[js_m1m]

Код:

program laba_5;

{$APPTYPE CONSOLE}

uses
SysUtils;
var
   m: integer;
   a: array[0..255,0..255] of char;
procedure filling;
var i,j:integer;
b: array[0..2] of char;
begin
b[0]:='*';
b[1]:='?';
b[2]:='$';
randomize;
 for i:= 1 to m do
  for j:=1 to m do
    a[i,j]:=b[random(3)];
  end;
procedure cut;
var zv,pr,i1,i2,k:integer;
begin
pr:=m div 2;
zv:=1;
For k:=1 to m div 2 do
  begin
  for i1:=1 to pr do
    Write(' ');
  for i1:=1 to zv do
    Write(A[pr+i1,k]);
    WriteLn;
  Inc(zv,2);
  Dec(pr);
  end;
For k:=((m div 2)+1) to m do
  begin
  for i1:=1 to pr do
    Write(' ');
  for i1:=1 to zv do
    Write(A[pr+i1,k]);
    WriteLn;
  Inc(pr);
  Dec(zv,2);
  end;
end;
begin
Writeln('Enter the length of the square');
Readln(m);
filling;
cut;
Writeln('Press enter to exit.');
readln;
end.