Составьте программу нахождения значение функции z = y*x.Нужна программа в паскаль, Пожалуйста посчитайте пожалуйста срочно нужно

program funct;

var

 y, x : integer;

Begin

 write('y = ');

 readln(y);

 write('x = ');

 readln(x);

 writeln('z=y*x');

 writeln('z=', y, '*', x);

 writeln('z=', y*x);

end.

PascalABC.NET