uses crt;
var b,x:real;
begin
write('Введите длину ткани: ');
readln(x);
write('Введите стоимость квадратного метра ткани: ');
readln(b);
writeln('Стоимость ткани длиной ',x,' метров равна ',0.8*x*b);{кусок длиной 1.25 м и шириной 0.8 метра имеет площадь 1 квадратный метр и стоит ровно B рублей}
end.
Var
a, b: real;
begin
readln(a, b);
writeln('S=', a * b);
writeln('P=', 2 * (a + b));
end .
Мне это мама сказала если что-то не правильно скажи,исправлю