Решить составить блок-схему и программу. в магазине имеется товар трёх сортов. цена первого сорта - а руб. цена 2 сорта - в руб., цена 3 сорта -с руб. определите среднюю стоимость товара надо сделать в программе pascal

Var a,b,c,sred: real; beginwriteln('введите стоимость первого товара'); readln(a); writeln('введите стоимость второго товара'); readln(b); writeln('введите стоимость третьего товара'); readln(c); sred: =(a+b+c)/3; trunc(sred); writeln('средняя стоимость равна: ',sred); end.

var

  x: real;

begin

  readln(x);

writeln(x: 0: 0);

end.

var a,b,c: integer;

begin

  writeln('введите 3 целых числа');

  read(a,b,c);

  write('среди трех данных чисел есть хотя бы одна пара ');

  if (a=b) or (a=c) or (b=c) then write(' - выражение истинно') else write(' - выражение ложно');

end.