Ввести с клавиатуры двузначное число. из большей цифры числа вычесть меньшую написать программу )

program one;

var a,b: integer;

begin

read(a);

if a div 10 > a mod 10 then  

b: =a div 10-a mod 10

else if a div 10< a mod 10 then

b: =a mod 10-a div 10;

writeln('b = ',b);

end.

program ad;

var num, f, s: integer;

begin

readln(num);

f: = num div 10;

s: = num mod s;

if f> s then

  writeln(f-s);

else

  writeln(s-f);

end.

function nod(a,b: integer): integer;   begin if a mod b< > 0 then nod: =nod(b,a mod b) else nod: =b end;   var a,b,c: integer; begin readln(a,b,c); writeln(nod(nod(a,b),c)); readln end. 

                                                                                                                            p.s. я не уверен что это правильно

овал (начало) 

параллелепипед (х)

                                                  -ромб (х> 10)-        

              прямоуголник (х: =х+2)           прямоугольник (х: =х*2)            

                                                            параллелепипед (х)

                                        овал (конец)