pascal program pembagian

program pembagian;
uses crt;
Var a,b,c:real;
begin
Clrscr;
Write('masukan nilai a:');readln(a);
Write('masukan nilai b:');readln(b);
C:=a/b;
Write('hasil pembagian adalah:',c);
Readln ;
End.