Зная стоимость одного пирожка ,посчитать стоимость 2,3,...6 пирожков.

По сути. решение неверное. Задача должна выполняться при любых условиях, а значит, что можно спросить хоть стоимость аж 100 пирожков, она должна дать нам результат.

в задаче не было указано что вычислить стоимость 2,3,...,n пирожков (кол-во пирожков вводится с клавиатуры), а всего лишь высчитать стоимость до 6 пирожков, какой вопрос - такое и решение ;)

Добавил программу с подсчётом стоимости с n-количеством пирожков

Просто кто-то в школе видимо плохо слушает. На экзамене если так же решите - только для данных, полученых на вход, то за ответ Вам дадут минимум баллов.

var a:real;beginwrite ('Введите стоимость 1 пирожка: ');readln (a);writeln ('Стоимость 2 пирожков = ',a*2);writeln ('Стоимость 3 пирожков = ',a*3);writeln ('Стоимость 4 пирожков = ',a*4);writeln ('Стоимость 5 пирожков = ',a*5);writeln ('Стоимость 6 пирожков = ',a*6);end.Если нужна программа с n кол-во пирожков, где n вводится с клавиатуры, то вот:var a,n:real;beginwrite ('Введите стоимость 1 пирожка: ');readln (a);write ('Введите кол-во пирожков: ');readln (n);writeln ('Стоимость ',n,' пирожков = ',a*n);end.