Вводятся годы рождения двух девочек. требуется сравнить их возраст и вынести на экран «родились в один год» или «родились в разные года» в зависимости от результатов сравнения.

var

 n, t: Integer;

begin

 Write ('Введите год рождения Насти: ');

 Read (n);

 Write ('Введите год рождения Тани: ');

 Read (t);

 if n = t then

   WriteLn ('Родились в один год')

 else

   WriteLn ('Родились в разные годы');

end.