Ввести с клавиатуры стоимость и количество продукта. отыскать стоймость покупки.

program zz1;

var a, b, c:real; // вводим переменные не целого типа

begin

write( введите стоимость продукта в руб. );  // вводим с клавиатуры 1-ое число

read(a);

write( введите количество продукта в шт. );  // вводим с клавиатуры 2-ое число

read(b);

c:=a * b; // вычисляем стоимость покупки

write( цена покупки = , trunc(c), руб. ); // выводим ответ выделив целую часть от приобретенного ответа

write(trunc(frac(c) * 100), коп. ); // выводим ответ выделив дробную часть от полученного ответа и преобразовав дробную часть ответа в целое число

end.