Program one; uses crt; var x: integer; y, z: real; begin y:=176.28; z:=1500.54; Writeln('Введите количество дисков'); readln(x); if y*x