Написать программу рисования звезды со стороной 50

{предвещая недовольство: мне самому не нравится эта подпрограмма, но динамические массивы обычно не изучают в школьной программе} //pascal abc.net v3.1 сборка 1219 const   n1=5;   m1=8;   n2=6;   m2=4;   type   matrixa=array[1..n1,1..m1] of integer;   matrixb=array[1..n2,1..m2] of integer;   procedure findind(f: integer; maa: matrixa; mab: matrixb); var  i,j: integer;   s: string;   begin   for i: =1 to n1 do      for j: =1 to m1 do       if maa[i,j]=f then s: =s+'['+inttostr(i)+']['+inttostr(j)+']'+chr(10)+chr(13);   writeln('for a: '); writeln(s);   s: ='';   for i: =1 to n2 do     for j: =1 to m2 do       if mab[i,j]=f then s: =s+'['+inttostr(i)+']['+inttostr(j)+']'+chr(10)+chr(13);   writeln('for b: '); writeln(s);   end;       var   maa: matrixa;   mab: matrixb;   i,j,f: integer; begin   randomize;   writeln('matrix a: ');   for i: =1 to n1 do   begin     for j: =1 to m1 do     begin       maa[i,j]: =random(20);       write(maa[i,j]: 4);     end;   writeln;   end;   writeln('matrix b: ');   for i: =1 to n2 do   begin     for j: =1 to m2 do     begin       mab[i,j]: =random(20);       write(mab[i,j]: 4);     end;   writeln;   end;   readln(f);   findind(f,maa,mab); end.  пример ввода: 2 пример вывода: matrix a:   14   10   13   11   6   9   14   9   10   5   12   11   17   5   1   8     4   6   0   19   17   0   1   8   16   13   6   9   15   12   14   18     2   2   15   1   0   7   10   5 matrix b:     4   9   13   19   13   11   10   2     2   18   9   18   15   2   7   14     9   4   14   13     2   4   13   18 for a: [5][1] [5][2]  for b: [2][4] [3][1] [4][2] [6][1]