Условия числа х и y- положительные Записать ** языке паскаля

Question

Условия числа х и y- положительные Записать на языке паскаля

Answer 1

x, y, z: integer;
begin
write('x y? ');
readln(x, y);
if x < 0 then
if x > y then z := x else z := y
else
if x < y then z := x else z := y;
write('z: ', z);