var
n, t: Integer;
begin
Write ('Введите год рождения Насти: ');
Read (n);
Write ('Введите год рождения Тани: ');
Read (t);
if n = t then
WriteLn ('Родились в один год')
else
WriteLn ('Родились в разные годы');
end.
var
n, t: Integer;
begin
Write ('Введите год рождения Насти: ');
Read (n);
Write ('Введите год рождения Тани: ');
Read (t);
if n = t then
WriteLn ('Родились в один год')
else
WriteLn ('Родились в разные годы');
end.