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

Предыдущий
вопрос Следующий
вопрос

program InternationalConference;

typ
Participant = recor
nationality: string
age: integer
end;

va
participants: array[1..5] of Participant
i: integer
youngestRussianAge, oldestRussianAge: integer
youngestRussianIndex, oldestRussianIndex: integer;

begi
participants[1].nationality := 'Russian'
participants[1].age := 25;

participants[2].nationality := 'German'
participants[2].age := 30;

participants[3].nationality := 'French'
participants[3].age := 40;

participants[4].nationality := 'Russian'
participants[4].age := 50;

participants[5].nationality := 'Chinese'
participants[5].age := 35;

youngestRussianAge := maxint
oldestRussianAge := 0;

for i := 1 to 5 d
begi
if participants[i].nationality = 'Russian' the
begi
if participants[i].age < youngestRussianAge the
begi
youngestRussianAge := participants[i].age
youngestRussianIndex := i
end
if participants[i].age > oldestRussianAge the
begi
oldestRussianAge := participants[i].age
oldestRussianIndex := i
end
end
end;

writeln('The youngest Russian participant is ', participants[youngestRussianIndex].age, ' years old.')
writeln('The oldest Russian participant is ', participants[oldestRussianIndex].age, ' years old.');

end.