Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.