Как на языке Паскаль умножить 2 любых числа? Напишите программу, пожалуйста.

Program pr1;
Uses Crt;
Var
a,b,p:real;
begin
ClrScr;
write(a=);
readln(a);
write(b=);
readln(b);
p:=a*b;
writeln(a*b=,p);
readln;
end.