Найти стоимость заданного количества ткани. Цена и количество вводятся с клавиатуры.

program zz1;

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

begin

write (' введите заданную цену ткани '); / / вводим с клавиатуры первое число

read (a);

write (' введите заданное количество ткани '); / / вводим с клавиатуры второе число

read (b);

r: = a * b; / / вычисляем стоимость заданного количества ткани, умножив количество ткани на ее цену по формуле

write (' стоимость заданного количества ткани = ', r:5:2); / / выводим ответ в формате пять знаков для всего числа и два знака после точки

end.