var
g1, g2: integer;
begin
writeln('Введите год рождения первого человека');
read(g1);
writeln('Введите год рождения второго человека');
read(g2);
if g1>g2 then writeln ('Второй человек старше');
if g1<g2 then writeln ('Первый человек старше');
if g1=g2 then writeln ('Одинакова дата рождения у двоих');
end.
var
g1, g2: integer;
begin
writeln('Введите год рождения первого человека');
read(g1);
writeln('Введите год рождения второго человека');
read(g2);
if g1>g2 then writeln ('Второй человек старше');
if g1<g2 then writeln ('Первый человек старше');
if g1=g2 then writeln ('Одинакова дата рождения у двоих');
end.