Коллеги впиши в таблицу имена и свойства объектов. учёный паскаль талантливый. шишкин композитор озеро лондон

Program saidim;
uses crt;
var
 m:integer;
begin
  writeln('');
  writeln('**   Переводилка возраста   **');
  writeln('');
  writeln();
  writeln('Введите возраст в месяцах');
  readln(m);
  writeln('*** alphaues is thinking... ***');
  writeln();
 // writeln('Возраст равен ',m div 12,' лет ',m mod 12,' месяцев');
  write('Возраст равен ',m div 12);
  case ((m div 12) mod 10) of
    1:  write(' год ');
    2,3,4:  write(' годa ');
    else   write(' лет ');
  end;
  case (m mod 12) of
    0:  writeln(' ровно ');
    1:  writeln(m mod 12,' месяц ');
    2,3,4:  writeln(m mod 12,' месяцa ');
    else   writeln(m mod 12,' месяцев ');
  end;
end.

Чтобы массив заполнялся от -15 до 20:

program vst;
var c:array [0..100] of integer;
j,n,k,i:integer;
min:integer;
begin
randomize; writeln('n='); read(n);
for i:=1 to n do c[i]:=random(36)-15;
writeln;
for i:=1 to n do write (c[i],' ');
min:=c[1];
for i:=2 to n do
if min>c[i] then min:=c[i];
writeln ('min=',min);
writeln('k='); read(k);
for i:=n+1 downto k do c[i]:=c[i-1];
c[k]:=min;
writeln; for i:=1 to n+1 do write (c[i],' ');
end.

---

Чтобы был ручной ввод:

program vst;
var c:array [0..100] of integer;
j,n,k,i:integer;
min:integer;
begin
writeln('n='); read(n);
for i:=1 to n do
readln(c[i]);
writeln;
for i:=1 to n do write (c[i],' ');
min:=c[1];
for i:=2 to n do
if min>c[i] then min:=c[i];
writeln ('min=',min);
writeln('k='); read(k);
for i:=n+1 downto k do c[i]:=c[i-1];
c[k]:=min;
writeln; for i:=1 to n+1 do write (c[i],' ');
end.