Если не вводить данные с клавиатуры, а задать их в программе, то можно как то так сделать:

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.