1)напишите программу которая спрашивала бы название продукта и его цену. и затем на экран выводила фразу "ваши расходы на покупки равны руб." 2) написать программу, которая запрашивала три числа, подсчитывала их средне и сумму и на экран выводила фразу "их среднее " и "их сумма "

Program program1; var name: string; var cost: real; begin         write('введите название товара: ');         readln(name);         write('введите цену товара: ');         readln(cost);         writeln('ваши расходы на покупки равны', cost, ' руб.'); end. ============================= program program2; var a, b, c, sum: integer; var average: real; begin         writeln('введите три числа: ');         readln(a, b, c);         average : = (a + b + c) / 3;         writeln('их среднее равно ', average);         sum : = a + b + c;         writeln('их сумма равна ', sum); end.

var

  x: real;

begin

  readln(x);

writeln(x: 0: 0);

end.

если под ячейкой поодразумевается байт (восемь бит) то:

(для беззнаковых (натуральных с нулём) )

или

- (для знаковых (целых) )