Question

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

Answer 1

var

 n, t: Integer;

begin

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

 Read (n);

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

 Read (t);

 if n = t then

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

 else

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

end.