program InternationalConference;

type
Participant = record
nationality: string;
age: integer;
end;

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

begin
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 do
begin
if participants[i].nationality = 'Russian' then
begin
if participants[i].age < youngestRussianAge then
begin
youngestRussianAge := participants[i].age;
youngestRussianIndex := i;
end;
if participants[i].age > oldestRussianAge then
begin
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.