JPEG<span> — </span>формат<span>, в котором применяется сжатие </span>изображения<span> с потерей </span>качества<span>, у него наименьший размер </span>файлов<span> фотографий и наибольшие </span><span>потери </span>качества<span>. То-есть за счет сжатия изображения!</span>
Var a, b, c, d, e: real;
begin
readln(a, b, c)
writeln(c*(a/b):0:3, ' руб.');
end.
Http://ideone.com/m0vrCg
Можно скомпилировать и проверить на этом сайте
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(50, -50, 49);
a.Println.Where(t -> t.InRange(-5, 5)).Println(', ').Count.Println
end.