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

Написать программку для подсчёта, либо что сделать? Конкретнее напишите.

Var a:real;
begin
write ('Введите цена 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;
begin
write ('Введите цена 1 пирожка: ');
readln (a);
write ('Введите кол-во пирожков: ');
readln (n);
writeln ('Стоимость ',n,' пирожков = ',a*n);
end.