var
z, y, x: Integer;
begin
Write ('Введите целые числа z, y, x: ');
ReadLn (z, y, x);
Writeln ('Результат = ', (z + y * 3) / (x + z));
ReadLn;
end.
var
z, y, x: Integer;
begin
Write ('Введите целые числа z, y, x: ');
ReadLn (z, y, x);
Writeln ('Результат = ', (z + y * 3) / (x + z));
ReadLn;
end.