Составить программу v VBA для вычисления заданных сумм, произведений и табулирования функций на заданном множестве точек

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var a,b,c:integer; // цифры числа n = abc
  var (i,j,k):=(1,2,3); // места цифр a,b,c, расположенных по неубыванию
  var s1:array[1..3] of string:=('первая','вторая','третья');
  var s2:array[1..3] of string:=('первой','второй','третьей');
  a:=n div 100;
  b:=(n div 10) mod 10;
  c:=n mod 10;
  // сортировка по неубыванию
  if a>b then begin Swap(a,b); Swap(i,j) end;
  if b>c then begin
    Swap(b,c); Swap(j,k);
    if a>b then begin Swap(a,b); Swap(i,j) end
    end;
  if c>b then Writeln(s1[k],' цифра больше остальных')
  else
    if b>a then Writeln(s1[j],' и ',s1[k],' цифры больше ',s2[i])
    else Writeln('Все три цифры одинаковы')
end.

Примеры
n= 638
третья цифра больше остальных

n= 583
вторая цифра больше остальных

n= 707
первая и третья цифры больше второй

n= 444
Все три цифры одинаковы

Program z1;
var a,b:real;    
f:longint;
begin
writeln('Ââåäèòå Г¬Г*Г±Г±Гі Гў ГЄГЈ:');
read(a);
writeln('Ââåäèòå åäèГ*èöó âûâîäГ*:');
writeln('1 - ìèëëèãðГ*ìì');
writeln('2 - ГЈГ°Г*ìì');
writeln('3 - êèëîãðГ*ìì');
writeln('4 - öåГ*ГІГ*ГҐГ°');
writeln('5 - ГІГ®Г*Г*Г*');
read(f); if (f<1) or (f>6) then begin                        writeln('Ïîâòîðèòå ââîä');                        
read(f);                        
end;
if f=1 then begin            
b:=a*1000000;            
write(a,' ГЄГЈ=',' ',b,' ','ìèëëèãðГ*ìì');            
end;
if f=2 then begin            
b:=a*1000;            
write(a,' ГЄГЈ=',' ',b,' ','ГЈГ°Г*ìì');            
end; if f=3 then begin            
b:=a;            
write(a,' ГЄГЈ =',' ',b,' ','êèëîãðГ*ìì');            
end; if f=4 then begin            
b:=a/100;            
write(a,' ГЄГЈ=',' ',b,' ','öåГ*òðîâ');            
end;
if f=5 then begin            
b:=a/1000;            
write(a,' ГЄГЈ=',' ',b,' ','ГІГ®Г*Г*');            
end;
writeln('ÏðîãðГ*ììГ* Г§Г*âåðøåГ*Г*');
end.