Какие функции выполняют if и mod в паскале?

1. 
алг
нач
 цел а
 ввод а
 вывод div(a, 1000), 'тонн'
кон
2.
var x, i: integer;
begin
write('Введите трёхзначное число: ');
readln(x);
if ( x <100 ) OR ( x>100 ) then writeln('Число не трёхзначное!')
else
begin
i :=x mod 10; write(i)
write(x div 100);
write(x div 10 mod 10);
end;
end.
3.

Было число ав

Стало число 2ав2

Разложим его на разряды

2ав2=2*1000+а*100+в*10+2=2002+100а+10в

По условию задачи это в 32 раза больше исходного двузначного числа ав, т.е.:

32ав=2ав2  ( Число ав тоже разложим на разряды, получим 10а+в)

32(10а+в)=2002+100а+10в

32(10а+в)=2002+10(10а+в)

32(10а+в)-10(10а+в)=2002

22(10а+в)=2002

10а+в=2002:22

10а+в=91

Итак, искомое число 91

//Pascal
  var a,b, I, maxsumm, max : integer;
 
  function summdel(x:integer):integer; //результат - сумма делителей х
  var k,sum:integer;
  begin
    sum:=0;
    for k := 1 to x div 2 + 1 do
      if x mod k = 0 then sum:= sum+k;
    summdel:=sum;
  end;
 
  begin
   writeln('Введите границы a,b ');
   readln(a,b);
    maxsumm := 1;
    max := 1;
    for i := a to b do
     begin
        if summdel(i) > maxsumm then
          begin maxsumm:= summdel(i);
            max := i;
          end;
     end;
     writeLn('Максимальная сумма делителей - ', maxsumm, ' число - ',max)
  end.