Programa de Division

program divi;
uses crt;
     var
         a,b:integer;
     var
        resultado:real;
begin
     clrscr;
     write('teclea el dividendo :  ');
     readln(a);
     write('ingresa el divisor  :  ');
     readln(b);
     resultado:=a/b;
     writeln('el resultado es :  ',resultado:5:2);
     readln;
end.