Напишите программу паскаль с переменными максимум минимум мод и див 8 класс

program zz1;

var a, n, i, max, min:integer; / / задаем переменные целого типа

begin

write (' введите n '); / / вводим с клавиатуры число

read (n);

max:=0; min:=10000; / / задаем начальные значения для максимального и минимального

for i:=1 to n do

begin

read (a); / / вводим число

if a < min then min:=a; / / находим минимальное

if a > max then max:=a; / / находим максимальное

end;

writeln (' целая часть деления max на min = ', max div min); / / выводим ответ

write (' остаток от деления max на min = ', max mod min);

end.