Программа вычисляет значение выражения z=xy/3x+y. надите ошибки в программном ходе: var x,y: integer z: integer; begin writeln(введите два числа); readln (x); z: =x*y/(3x+y); write('z=',z); end

Если  

var
x,y: integer;
z:real;
begin
writeln('Введите два числа');
readln (x,y);
z:=x*y/(3*x+y);
write('z=',z);
end.