var
price,num: real;
begin
write('Введите стоимость за 1 кг яблок: ');
readln(price);
write('Введите массу яблок: ');
readln(num);
writeln('Цена яблок ',num*price);
end.
var
price,num: real;
begin
write('Введите стоимость за 1 кг яблок: ');
readln(price);
write('Введите массу яблок: ');
readln(num);
writeln('Цена яблок ',num*price);
end.