Как на языке паскаль умножить 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.