Паскаль. линейный оператор. в магазине продается ткань для костюма. ее цена а грн. за кв. метр. напишите программу которая пошитывает и выводит на экран стоимасть куска этой ткани длинной х м. и шириной 80 см.

Var
  A, x: real;

begin
  Write('Стоимость 1 кв.м. ткани, грн: ');
  Readln(A);
  Write('Длина куска ткани, м: ');
  Readln(x);
  Writeln('К оплате: ', A * x * 0.8,' грн.')
end.

Тестовое решение:
Стоимость 1 кв.м. ткани, грн: 46.5
Длина куска ткани, м: 2.6
К оплате: 96.72 грн.