Составить программу для умножения двух вводимых с клавиатуры двоичных числа — Pascal(Паскаль)

Program umnoj;
var p,x,y:integer;
begin
Writeln('введите первое число' );
readln(x);
Writeln('введите второе число' );
readln(y);
P:=x*y;
readln(P);
End.