Илья решил завучу школы со списком участников школьного вальса на последнем звонке. он решил записать, сколько участвует мальчиков (обозначив их boy) и девочек (обозначив их girl все записи он делал в одной строке. однако, при составлении списка илья торопился, в результате чего при составлении пар получилась путаница. он делал записи часто без пробелов, добавлял другие символы или символы слов «boy» и «girl», а также использовал их в произвольном порядке. илье разобраться, сколько всего участников записано, сколько танцующих пар можно организовать и скольких участников не хватает. прогу на паскале плз

Нужно подумать логично.Если Илья быстро торопился нужно всего не тропиться и делать всё потихоньку.

  начало

                                                  делим на 2

                          есть остаток                               нет остатка

                          возводим в куб                         возводим в кводрат

                                                    конец        

1 задача
program proga;
var st,st2:string;
i:Integer;
begin
writeln('Введите число');
readln(st);
for i:=1 to length(st) do begin
st2:=st[i];
write(st2,' ');
end;
end.
2 задача
program proga2;
var st,st2:string;
i,a:Integer;
begin
writeln('Введите возраст');
readln(a);
if a>120 then
writeln('Неверные данные');
if a=1 then
writeln(a,' год');
if (a>1) and (a<5) then
writeln(a,' года');
if((a mod 10 = 1) and (a div 10 <> 0 or 11 )) then writeln(a,' год');
if (a>=5) and (a mod 10 <> 2 or 3 or 4)and (a div 10 <> 10) then
writeln(a,' лет');
if (a<=5) and (a mod 10 = 2 or 3 or 4)and (a div 10 = 10) then writeln(a,' года ');
if(a>104) and (a<110)then writeln(a,' лет');
end.