Помогите пж!!!!1 задание​

Программа на Паскале:

var x,y,z:real;

begin

writeln('Введите значение x: ');

readln(x);

writeln('Введите значение y: ');

readln(y);

if x<y then

z:=x/y

else

z:=x*y;

writeln('z = ',z);

end.