Циклы в паскале

Ты кого паскудой назвал?

На каком этапе возникает затруднение?

Блез Паскаль серьёзный учёный был, математик гениальный!

Пример простой программы на языке Pascal, которая определяет стоимость n количества сахара и муки:

program CalculateCost;

var
n: integer; // количество товара
sugarCost, flourCost, totalCost: real; // стоимость сахара, муки и общая стоимость

begin
// Ввод данных
write('Введите количество сахара (кг): ');
readln(n);
// Задаем стоимость сахара (предположим, 1 кг стоит 2 единицы валюты)
sugarCost := 2;

// Рассчитываем стоимость сахара
totalCost := n * sugarCost;

// Выводим результат
writeln('Стоимость ', n, ' кг сахара: ', totalCost:0:2, ' единицы валюты');

// То же самое для муки
write('Введите количество муки (кг): ');
readln(n);
// Задаем стоимость муки (предположим, 1 кг стоит 1.5 единицы валюты)
flourCost := 1.5;

// Рассчитываем стоимость муки
totalCost := n * flourCost;

// Выводим результат
writeln('Стоимость ', n, ' кг муки: ', totalCost:0:2, ' единицы валюты');
end.

Пожалуйста, учтите, что эти цены и валюты используются исключительно для примера и могут быть изменены в соответствии с вашими реальными данными.

«можете расписать последовательность действий пожалуйста»
Спасибо, давно тут нормально не просят!
«составить программу которая определяет стоимость n количества сахара и муки.»
Для начала компьютер не знает, какое число это n. То бишь надо завести переменную (ту, что может меняться) и ввести в нее нужное число. Число может быть целым, может быть и дробным, точнее вещественным, мы же количество вещества будем вводить.
Стоимость n кол. сахара = n*стоимость единицы массы этого сахара. Стоимость единицы массы сахара хорошо бы ввести как постоянную (ту, что случайно в программе не изменить), а вот n будет тогда из типа Real (вещественная, а то тип целых нам тут не подходит). Остается организовать ввод n и в коде прописать стоимость сахара и муки и тогда стоимость n кол. сахара И муки будет = n *(стоимость сахара + стоимость муки). Надеюсь, именно так хочет препод, а то может хочет отдельно вывести, а тут по тексту понять сложно.

 program helloworld; 
var 
    tsena_sahar: integer; 
    tsena_muka: integer; 
    k,n: integer; 
    otvet: string; 
begin 
 
    write('Сколько стоит сахар: '); 
    readln(tsena_sahar); 
 
    write('Сколько стоит мука: '); 
    readln(tsena_muka); 
 
    write('Сколько килограмов и сахара и муки покупаем: '); 
    readln(n); 
 
    for k:=1 to n do 
    begin 
        str(k, otvet); write(otvet + ' кг муки стоит '); str(k*tsena_sahar, otvet); writeln(otvet + ' денег'); 
        str(k, otvet); write(otvet + ' кг сахара стоит '); str(k*tsena_muka, otvet); writeln(otvet + ' денег'); 
    end; 
    writeln; 
 
    str((tsena_sahar+tsena_muka)*n, otvet); 
    writeln('Итого ' + otvet + ' денег'); 
 
end.