.

program Multiplication;
var
x, y, result: integer;
begin
writeln('Enter x:');
readln(x);
writeln('Enter y:');
readln(y);

if y < x then
begin
result := x * y;
writeln('The product of x and y is: ', result);
end
else
writeln('Error: y is not less than x');

readln;
end.