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

Штану стоят А руб. Футболка 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.

апельсин - цитрусовое.

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

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

апельсин не только красивый и яркий фрукт, но также он вкусен и полезен для здоровья. регулярно употребляйте апельсины в пищу, и тогда у вас всегда будет прекрасное настроение и отличное самочувствие.

qbasic:

input "число а=", a 

x = a 

do

  x = x ^ 2 + 1

  n = n + 1

loop until x > = 1000000

print a, x, n

max(n) = 7, при a = 0