Помогите пожалуйста, не совсем разбираюсь с программированием!

Question

Помогите пожалуйста, не совсем разбираюсь с программированием!

---

---

---

Answer 1

Var x,y,z,min,max,r:real;
begin
write('x=');readln(x);
write('y=');readln(y);
write('z=');readln(z);
if xif min>z then max:=min else max:=z;
r:=max/3;
writeln('r=',r);
end.