Продолжите последовательность. буквы вводите через запятую. п, в, с, ч, п, ? , ?

П,В, С, Ч, П,В,С,Ч и тд. и тп.

П, В, С, Ч, П, С, В.
Понеделник, Вторник, Среда, Четверг, Пятница, Суббота, Воскресенье

Из Истории -
1)  Наполеон Бонапарт - французский государственный деятель.
2) Христофор Колумб - открыл новый свет.
Из Географии -
1) Россия - самое большое государство по площади.
2) В Китае больше всего населения.
Из биологии -
1) Растения производят кислород.
2) У коровы есть вымя.
Из математики -
1) 2+2=4
2) 6-2=4
Из Русского языка -
1) В русском алфавите - 32 буквы.
2) В сложном предложении 2 грамматические основы.
Из Литературы -
1) А.С. Пушкин - русский поэт.
2) "Войну и Мир" Написал Л.Н. Толстой.
Из информатики -
1) Информатика - наука о работе с информацией.
2) Вирт Никлаус - специалист в области информатки.

Var 
  m1,m2,m5,m10,m50,m100,m500,s:integer;
begin 
m1:=0;
m2:=0; 
m5:=0; 
m10:=0; 
m50:=0; 
m100:=0; 
m500:=0; 
readln(s); 
while s>0 do 
begin   
if s>=500 then   
begin     
s:=s-500;     
m500:=m500+1;   
end   
else     
if s>=100 then     
begin       
s:=s-100;       
m100:=m100+1;     
end     
else       
if s>=50 then       
begin         
m50:=m50+1;         
s:=s-50;       
end       
else         
if s>=10 then         
begin           
s:=s-10;           
m10:=m10+1;         
end         
else           
if s>=5 then           
begin             
m5:=m5+1;             
s:=s-5;           
end           
else             
if s>=2 then             
begin               
m2:=m2+1;               
s:=s-2;             
end             
else             
begin               
m1:=m1+1;               
s:=s-1;             
end; 
end; 
writeln('500р = ',m500); 
writeln('100р = ',m100); 
writeln('50р = ',m50); 
writeln('10р = ',m10); 
writeln('5р = ',m5); 
writeln('2р = ',m2); 
writeln('1р = ',m1);
end.