Program Pembagian

program pelajar;

uses wincrt;

var

   A,B, hasil:real;

begin

     A:=3;      ( ini thu langsung muncul )

     B:=45;

     hasil:= A/B;

     writeln (hasil);

end.

program pelajar;

uses wincrt;

var

   A,B, hasil:real;

begin

     readln(A);        ( ini thu input ndiri )

     readln (B);

     hasil:=A/B;

     writeln (hasil);

end.