---

program Examplel;

var a,b, rez:integer;

begin

writeln('Введите два числа:');

readln(a, b);

rez:=a*b;

writeln('Их произведение = ', rez);

end.