Диск
Камень
Кассета
Книжка
Дискета
Бумага
Флеш
Var a, b, c, d, e: real;
begin
readln(a, b, c)
writeln(c*(a/b):0:3, ' руб.');
end.
//PascalABC.NET версия 3.2, сборка 1467
//Если программа не запускается, то обновите версию
begin
var m := ArrRandomReal(5, 1, 10); // автоматический ввод данных
Println(m);
Println(m.Aggregate(1.0, (x, y)-> x * y));
end.
Считая сверху: 3, 4, 5, 6.
Простой карандаш, лупа, ластик, лист бумаги