Напишите программы для следующих , организуя экран пользователя по предложенному варианту. 1: написать программу вычисления площади поверхности параллелепипеда. s=2*(a*b+b*c+c*a) введите данные а=9,в=7.5,с=5 экран пользователя: вычислите s поверхности параллелепипеда. введите исходные данные: длина(см)? 9 ширина(см)? 7.5 высота(см)? 5 площадь поверхности: 30000 кв.см. 2: записать программу вычисления стоимости покупки, состоящей из нескольких тетрадей и карандашей. экран пользователя: вычисление стоимости покупки введите исходные данные: цена тетради( 2.75 количество тетрадей? 5 цена карандашей( 0.85 количество карандашей? 2 стоимость покупки: 15.45 руб.

Program p1; var   a, b, c, s: real; begin   writeln('вычислите s поверхности параллелепипеда.');   writeln('введите исходные данные: ');   write('длина(см)? '); readln(a);   write('ширина(см)? '); readln(b);   write('высота(см)? '); readln(c);   s : = 2 * (a * b + b * c + c * a);   writeln('площадь поверхности: ', s, ' кв.см.') end. тестовое решение: вычислите s поверхности параллелепипеда. введите исходные данные: длина(см)? 9 ширина(см)? 7.5 высота(см)? 5 площадь поверхности: 300 кв.см. program p2; var   ct,ck,s: real;   kt,kk: integer; begin   writeln('вычисление стоимости покупки');   writeln('введите исходные данные: ');   write('цена тетради( '); readln(ct);   write('количество тетрадей? '); readln(kt);   write('цена карандашей( '); readln(ck);   write('количество карандашей? '); readln(kk);   s: =ct*kt+ck*kk;   writeln('стоимость покупки: ',s: 0: 2,' руб.') end. тестовое решение: вычисление стоимости покупки введите исходные данные: цена тетради( 2.75 количество тетрадей? 5 цена карандашей( 0.85 количество карандашей? 2 стоимость покупки: 15.45 руб.

мне кажется "draw chat" потому что это единственный сервис для рисования