Если не вводить данные с клавиатуры, а задать их в программе, то можно как то так сделать:
var
n, e, m, t, i, k: integer;
begin
n := 81351097; // начальное население страны
e := -200800; // естественный прирост населения за год
m := 252000; // миграционный прирост населения за год
t := 50; // срок для расчёта (лет)
k := n + t * (e + m); // конечное население страны
Writeln('население будет равно ', k, ' (человек)');
end.