паскаль. линейный оператор.

В магазине продается ткань для костюма. Ее цена А грн. за кв. метр. Напишите программу которая пошитывает и выводит на экран стоимасть куска этой ткани длинной Х м. и шириной 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 грн.