Помогите пожалуйста решить задачи на Паскале(очень нужно)

[cabasik]

1. Дано натуральное число. Определить является ли сумма его максимальной и минимальной цифр кратна числу а.

2. Даны натуральные числа a и b, обозначающие соответственно числитель и знаменатель дроби. Сократить дробь, т. е. найти натуральные числа p и q,не имеющие общих делитилей, что p/q=a/b.


3. Дано натуральное число. Найти : 1. Число, получаемое в результате приписывания по двойке в начало и конец записи исходного числа.
2. Число, получаемое из исходного перестановкой его первой и последней цифры.

[Chudo4258]

1. Дано натуральное число. Определить является ли сумма его максимальной и минимальной цифр кратна числу а.

program Project1;
var n,max,min,a:integer;
begin
write('N= '); readln(n);
write('a= '); readln(a);
max:=n mod 10;
min:=n mod 10;
n:=n div 10;
while n<>0 do
begin
 if (n mod 10)> max then max:=n mod 10;
 if (n mod 10)< min then min:=n mod 10;
 n:=n div 10;
end;
if (max+min) mod a = 0 then writeln('Da')
                       else writeln('Net');
readln
end.