program CostOfApples;

var
a, b, z, cost: real;

begin
write('Введите вес яблок в килограммах: ');
readln(a);

write('Введите стоимость яблок за 1 кг: ');
readln(b);

write('Введите сколько килограммов яблок нужно купить: ');
readln(z);

cost := (b * z);

writeln('Стоимость ', z:0:2, ' кг яблок составляет ', cost:0:2, ' рублей');
end.