Verified answer

Ответ:

var k, m: integer;

begin

 write('k = ');

 readln(k);

 write('m = ');

 readln(m);

 writeln('Прозведение этих чисел: ', m * k);

 writeln('Разность этих чисел: ', m - k);

end.