Question

Написать программу, вычисляющую произведение двух чисел, введенных с клавиатуры. Перемножение реализовать в процедуре

Answer 1

Ответ:

program z1;

procedure P(a,b: integer);

begin

write(a*b)

end;

var a,b:integer;

begin

read(a,b);

P(a,b)

end.