pascal program perkalian

program perkalian;
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 perkalian adalah:',c);
Readln ;
End.