Маша решила купить ткань для пошива штор, при чем шторы должны быть длинной Х метров. Ткань для штор стоит R руб. за квадратный метр. Сколько будет стоить ткань для штор, если ткань по ширине равна 90 см На языке Паскаль.

program ok;

var r, x, w: real;

begin

 writeln('Введите длинну штор в метрах');

 readln(x);

 writeln('Введите стоимость ткани за квадратный метр в рублях');

 readln(r);

 w:= 0.9;

 writeln('Стоимость ткани равна',(x*r*w), 'рубля');

end.