Очень срочно! Решите пожалуйста следующие задачи в Turbo Pascal 1) Вывести на экран все…

1) program OddNums; var i,N: word; begin readln (N); for i: =100 to N do if (i mod 2)=1) then writeln (i); end. 2) Если я правильно понимаю понятие «совершенные числа» … program PerfectNums; var i,N,sum: word; begin readln (N); sum: =0; for i: =1 to N-1 do if (N mod i)=0) then sum: =sum+i; if sum=N then writeln ('YES') else writeln ('NO'); end. 3) program MultTablevar i,j: integer; begin for i: =1 to 9 do begin for j: =1 to 9 do writeln (i,' x ',j,'=', i*j); writeln; end; end.