Задание - определить свой возраст в днях
Ты вводишь свой возраст.
Переменную с возрастом записываешь в "выражение" цикла, инициализация 1, инкремент
В инструкции пишешь 1 год равен 365 дней
Возраст равен 1 год + 1год и т. д.

program old;
var a,b,c : integer;
begin
     writeln('Enter you age');
     readln(a);
     b := 365;
     c:= (a div 4) + (a * b);
     writeln('You lived day: ',c);
readln;
end.