pro-Gramas tu biblioteca de programacion

Realizaremos un programa que determine cual es el mayor y ese numero dividirlo entre el menor. Las comparaciones son con if.

program dividir;
uses
    crt;
var
   a,s,z:real;
begin
     clrscr;
     gotoxy(5,2);
     write('teclea un valor ');
     readln(a);
     gotoxy(5,3);
     write('teclea otro valor ');
     readln(s);
if
  a >= s
then
begin
     clrscr;
     gotoxy(3,2);
     z:= a / s;
     writeln('la divicion de ',a:4:2,' / ',s:4:2,' es: ',z:4:2);
     readkey
end
else
begin
     clrscr;
     gotoxy(3,2);
     z:= s / a;
     writeln('la divicion de ',s:4:2,' / ',a:4:2,' es: ',z:4:2);
     readkey
end
end.