Помогите решить задачу пожалуйста !!!!
Составить блок-схему и программу.
В магазине имеется товар трёх сортов. Цена первого сорта - А руб. Цена 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.