Составить программу по которой будет реализован следующий сценарий компьютер запрашивает ваш возраст и после ввода сообщает ваш год рождения

Var
  age,godr,year:integer;
begin
  Write('Укажите возраст: '); Read(age);
  Write('Укажите текущий год: '); Read(year);
  godr:=year-age;
  Writeln('Ваш год рождения ',godr)
end.