Информатика ( Паскаль ) 11кл Вычислить произведение x и y, если y <x

Предыдущий
вопрос Следующий
вопрос

.

program Multiplication
va
x, y, result: integer
begi
writeln('Enter x:')
readln(x)
writeln('Enter y:')
readln(y);

if y < x the
begi
result := x * y
writeln('The product of x and y is: ', result)
en
els
writeln('Error: y is not less than x');

readln
end.