Задание по информатике, текст задания - ниже.

Question

Задание по информатике, текст задания - ниже.

---

Answer 1

Var
  Date: string;
  year:integer;  

begin
  readln(Date);
  Delete(Date, 1, Pos('.', Date));
  Delete(Date, 1, Pos('.', Date));
  year:=StrToInt(Date);
  writeln(2015-year);
end.