Задачи по паскаль. если можно с блок-схемой. буду признателен)

[toktynov]

№1. Дано натуральное число n (n>999) Найти число тысяч в нем
№2. Дан набор из 10 целочисленных элементов.Найти количество элементов, расположенных перед последним максимальным
№3. Дано число k и матрица размера 4х9. После столбца матрицы с номером k вставить столбец из нулей

[MooNDeaR]

№1

Count := n div 1000

№2

...
for i := 1 to 10 do
   if(arr[i] > arr[imax]) then imax := i;
Count := 10 - imax;
...

for i := 1 to 4 do
begin
   for j := 1 to 9 do
   if j <> k then
       write(' ',arr[i,j];
   else
       write(' 0');
writeln;
end;