с СОРом
1,3,5 задание​

program xxx;

var a: string;

begin

    write('введите строку-');

    read(a);

    write(a);

  readln

end.

min і max нужно присвоить а[1].

в цикле sum [i]: =sum+mas[i,j];

21,24,27,30,33,36,39,42,45,48