Задача на моделирование по этапам: Продавец к основному окладу получает премию в размере 5% от сумм проданных им товаров. Зная величину оклада и сумму, на которую он продал товар, вычислить заработок за месяц и выяснить за указанное количество месяцев хватит ли у него денег для покупки компьютера желаемой стоимости. НУЖНО РЕШИТЬ ПО ЭТАПАМ: 1. постановка задачи 2. математическая модель 3. блок-схема 4. компьютерный эксперимент 5. анализ, ответ.

program SquareRootSum;
        var S: real;
               i: integer;
begin
    i := 5;
    S := 0;
    while S <= 100 do
    begin
        S := S + sqrt(i);
        i := i + 5;
    end;
    WriteLn(S)
end.


program Product;
    var P: real;
        i: integer;
begin
    P := 1;
    i := -10;
    while i <= -1 do
    begin
        P := P*i;
        i := i+1
    end;
    WriteLn(P)
end.

Сумме присваиваем начальное значение 0, потому что мы потом будем прибавлять к ней числа. А произведение присваиваем начальное значение 1 (если был бы 0, то все произведение было бы равно нулю, а нам это не нужно).

program konfety;   
    var t: real;       
         i: integer;        
begin
    WriteLn('Введите стоимость 1 кг конфет (в рублях): ');
    Read(t);
    for i := 1 to 10 do
        WriteLn('Стоимость ', i, ' кг конфет: ', i*t);
end.

Смысл такой:  - цена 1 кг конфет (вещественный тип real)
- счетчик, который будет увеличиваться на единицу после каждого выполнения тела цикла .

WriteLn() выводит на экран строку, которая заключена в кавычки. Не забываем ставить точку с запятой после операций.

Read(t) дает вам возможность вписать, сколько стоит килограмм конфет, и присваивает переменной  то значение, которое мы ввели.

Далее идет цикл , который по сути вот что делает: 
Для каждого целого i от 1 до 10 сделай вот что:
    Выведи на экран строку 'Стоимость ', потом значение i, потом строку 'кг конфет: ', потом число i умноженное на t

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

А дальше у нас end (последний end. всегда с точкой).

Конец.