Задача по информатике блок схема плюс код на паскале.

Штану стоят А руб. Футболка B руб. Носки С руб. Маша пошла в магазин за штанами, футболкой и носками. Если сумма покупки превышает X, то Маша не сможет купить комплект. Сделайте лёгкий код и блок схему на паскале. Если будет все правильно,

var a,b,c,x:integer;

Begin

   Write('Введите стоймость штанов: ');

   Read(a);

   Write('Введите стоймость футболки: ');

   Read(b);

   Write('Введите стоймость носков: ');

   Read(c);

   Write('Введите количество денег в кошельке: ');

   Read(x);

   If (a+b+c)>x then

       WriteLn('Маша не может купить комлпект')

   Else

       WriteLn('Маша хватит на комлпект')

End.

пусть введенный интервал будет

b и c,где b< c

var a,b,c,i: longint;

begin

    read(b,c);

    for i: =b to c do

            if i mod a=0 then write(i);

end.

3^i = 18

i = 3

ответ. 3 лампочки.