program DataCompression;
var
  Vin, Vout, Vhid: Real;
  K, P: Real;
begin
  WriteLn('Введите размер входных данных:');
  ReadLn(Vin);
  WriteLn('Введите размер выходных данных:');
  ReadLn(Vout);
  WriteLn('Введите размер скрытых данных:');
  ReadLn(Vhid);
 
  if (Vout <> 0) then
  begin
    K := Vin / Vout;
    P := (Vhid / Vout) * 100;
 
    WriteLn('Коэффициент сжатия равен: ', K:0:2);
    WriteLn('Процент скрытых данных равен: ', P:0:2, ' %');
  end
  else
  begin
    WriteLn('Ошибка: Размер выходных данных не может быть равен нулю.');
  end;
end.

cHJvZ3JhbSBEYXRhQ29tcHJlc3Npb247CnZhcgogIFZpbiwgVm91dCwgVmhpZDogUmVhbDsKICBLLCBQOiBSZWFsOwpiZWdpbgogIFdyaXRlTG4oJ9CS0LLQtdC00LjRgtC1INGA0LDQt9C80LXRgCDQstGF0L7QtNC90YvRhSDQtNCw0L3QvdGL0YU6Jyk7CiAgUmVhZExuKFZpbik7CiAgV3JpdGVMbign0JLQstC10LTQuNGC0LUg0YDQsNC30LzQtdGAINCy0YvRhdC+0LTQvdGL0YUg0LTQsNC90L3Ri9GFOicpOwogIFJlYWRMbihWb3V0KTsKICBXcml0ZUxuKCfQktCy0LXQtNC40YLQtSDRgNCw0LfQvNC10YAg0YHQutGA0YvRgtGL0YUg0LTQsNC90L3Ri9GFOicpOwogIFJlYWRMbihWaGlkKTsKCiAgaWYgKFZvdXQgPD4gMCkgdGhlbgogIGJlZ2luCiAgICBLIDo9IFZpbiAvIFZvdXQ7CiAgICBQIDo9IChWaGlkIC8gVm91dCkgKiAxMDA7CgogICAgV3JpdGVMbign0JrQvtGN0YTRhNC40YbQuNC10L3RgiDRgdC20LDRgtC40Y8g0YDQsNCy0LXQvTogJywgSzowOjIpOwogICAgV3JpdGVMbign0J/RgNC+0YbQtdC90YIg0YHQutGA0YvRgtGL0YUg0LTQsNC90L3Ri9GFINGA0LDQstC10L06ICcsIFA6MDoyLCAnICUnKTsKICBlbmQKICBlbHNlCiAgYmVnaW4KICAgIFdyaXRlTG4oJ9Ce0YjQuNCx0LrQsDog0KDQsNC30LzQtdGAINCy0YvRhdC+0LTQvdGL0YUg0LTQsNC90L3Ri9GFINC90LUg0LzQvtC20LXRgiDQsdGL0YLRjCDRgNCw0LLQtdC9INC90YPQu9GOLicpOwogIGVuZDsKZW5kLg==

CjIwCjEwMDAKMzAwCg==

20
1000
300