Ответ: благодарю, ща еще одну скину, ответь плиз

Ответ: Готово…………………….

Ответ: Program stena;Var a, b, k, c, s: real;BeginWriteln(‘ введите длину стены a’);Readln(a);Writeln(‘ введите высату стены b’);Readln (b);Writeln(‘ введите ширину обоев k’);Readln (k);Writeln (‘ введите цену рулона c’);Readln (c);s:=(a*b)/(b*12)*K;Write(‘всего надо заплатить=’,s);End.__________________________________Я там тебе программы файлом скинул ты только сохрани на комп и открой в паскале.