ПОМОГИТЕ!!!СРОЧНО РЕШИТЬ!!!задача про бусинку!

[kjfoy]

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

[tig81]

А ваши наработки где?

[kjfoy]

program mas;
var n:integer;
begin
write('n=');
readln(n);
case n mod 5 of
1:write('красная');
2:write('зеленая');
3:write('синяя');
4:write('жёлтая');
0:write('белая');
end;
end.


Я незнаю так или нет.

[berkut_174]

Я незнаю так или нет.

Дак проверьте
Вроде все норм, только задержку поставьте:

program mas;
var n:integer;
begin
write('n=');
readln(n);
case n mod 5 of
1:write('красная');
2:write('зеленая');
3:write('синяя');
4:write('жёлтая');
0:write('белая');
end;
readln;
end.

[Selyd]

Ну и к чему паника. Прямо одно совершенство.
И придраться не к чему.
Разве вместо write('n='); дать write('выбран цвет ');
Ни пуха, ни пера!!!