Может задачу недопонял. Но вот что вышло:
uses crt;
var n,i,s:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
s:=s+i;
end;
writeln(s);
readkey;
<span>end.</span>
У Оли - белая шапка (по условию), тогда шапки остаются синие и фиолетовые.
У Ксюши ничего фиолетового, тогда фиолетовая шапка у Насти и т.к.по условию у нее того же цвета костюм, то на Насте - фиолетовый.
Синяя шапка остается для Ксюши.
Остаются синий и белый костюмы.
У Оли костюм не белый, значит белый костюм у Ксюши, и остается синий у Оли.
Перо опустить , после этого он начнёт перемещатся выдовая чёткие контуры.
Var age:integer;
begin
writeln('Сколько вам лет?');
readln(age);
if age<=0 then writeln("Так не бывает, т.к. вы ещё не родились и не можете писать");
if age>100 then writeln('Вы хорошо сохранились!') else writeln('<span>Лет до 100 расти вам без старости!</span>');
end.
Var
hay:longint; { количество стогов сена }
eaten:longint; { количество съеденных стогов }
procedure Eat(var n:longint);
{ съесть 4 стога }
begin n:=n-4; eaten:=eaten+4 end;
procedure Sheep(n:longint);
{ овечка, которой передано n стогов сена }
begin
if n>=4 then begin
if (n mod 5)=0 then begin
n:=n div 5;
Sheep(n);
Sheep(3*n)
end
else begin
Eat(n);
Sheep(n)
end
end
end;
begin
Readln(hay);
eaten:=0;
Sheep(hay);
Writeln(eaten)
end.
<em><u>Тестовое решение:</u></em>
29
8