помогите решить задачи в pascal

[volia.92]

задача 1
циклы
в 1992 г население города составляло 850 тысяч человек . Составить прогноз численности населения на 5 лет ,если его прирост ожидается 1,8% В год.
задача 2
строки
дана строка .подсчитать ,сколько различных символов встречаются в ней.
Вывести на экран.
задача 3
распечатать фамилии детей данного детского сада,которые родились в определенном месяце,указать их возвраст и группу.Вывести список детей по заданной группе.
Зарание спасибо

[Chudo4258]

в 1992 г население города составляло 850 тысяч человек . Составить прогноз численности населения на 5 лет ,если его прирост ожидается 1,8% В год.

program Project2;
var
    i,g,ch:integer;
begin
g:=1992;
ch:=850000;
writeln(g, ' - ',ch);
for i:=1 to 5 do
begin
 inc(g); ch:=Round(ch+ch*0.018);
 writeln(g,' - ',ch);
end;
readln
end.

[volia.92]

спасибо за задачу

[DM_bite]

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

Первым делом создаем запись:

type C = record
sirname: string;
month: string;
age: byte;
group: byte;
end;

Создаем массив записей:

var CC: array [1..10] of C;

, заполняем его... А дальше просто проверяем:

if CC[i].month = 'месяц рождения' then WriteLn(CC[i].sirname,'__',CC[i].age,'__',CC[i].group);

и

if CC[i].group = 'нужная группа' then WriteLn(CC[i].sirname);

Все это делаем в цикле.