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

Program pr1;Uses Crt;Vara,b,p:real;beginClrScr;write('a=');readln(a);write('b=');readln(b);p:=a*b;writeln('a*b=',p);readln;end.