program ok;
var r, x, w: real;
begin
writeln('Введите длинну штор в метрах');
readln(x);
writeln('Введите стоимость ткани за квадратный метр в рублях');
readln(r);
w:= 0.9;
writeln('Стоимость ткани равна',(x*r*w), 'рубля');
end.
program ok;
var r, x, w: real;
begin
writeln('Введите длинну штор в метрах');
readln(x);
writeln('Введите стоимость ткани за квадратный метр в рублях');
readln(r);
w:= 0.9;
writeln('Стоимость ткани равна',(x*r*w), 'рубля');
end.