uses crt;
var adge1,adge2:integer;
begin;
clrscr;
writeln('Введите годы рождения девочек (первой и второй после каждой ENTER)');
readln(adge1, adge2);
iF adge1 < adge2 THEN writeln('Первая девочка старше') ELSE writeln('Вторая девочка старше');
end.