Надо, ! использовать алгоритм сместиться на вектор. ​

Программа может быть такой: uses crt; var a, b, c: integer; begin clrscr; write('a='); readln(a); write('b=');   readln(b); write('c='); readln(c); if (a mod 5)=0 then writeln(a, '      - кратно 5') else writeln (a, '      - не кратно 5'); if (b mod 5)=0 then writeln(b, '      - кратно 5') else writeln (b, '      - не кратно 5'); if (c mod 5)=0 then writeln(c, '      - кратно 5') else writeln (c, '      - не кратно 5'); readln; end.

Program pr; vara : array [1..100, 1..100] of integer; i, max, min, j, n: integer; begincls; read(n); min : = 100000; max : = -100000; for i : = 1 to n do        for j : = 1 to n do                begin                        read(a[i,j]);                         if (a[i,j] > max) then                                max : = a[i,j];                         if (a[i,j] < min) then                              min : = a[i,j];                 end;           writeln ('сумма = ', min + max); writeln ('разность = ', max - min); writeln ('произведение = ', max * min); end.