Помогите пожалуйста составить программы по информатике.

program i_dont_know;
var i:string;
begin
write ('Я ввожу номер года');
read(i);
if i=i_dont_know then 'zna4it'-i_dont_know';
for(i=1;i>1000;i++);
mov a;
mov x;
return 0;
}