Паскаль АВС. Информатика 7 класс. ПОМОГИТЕ ПОЖАЛУЙСТА!!! ДО КОНЦА ОСАЛОСЬ 3.5 ЧАСА!

Программирование знаешь???? давно не писал на паскале могу только дать примерный код без учета правильного синтасиса

1 задача
первый цикл находим первое четырехзначное число кратное К
first:=0;
While (first<1000 ) do
Begin
first := first + k;
end;

второй цикл подсчитываем сумму
sum :=0;
While (First <=9999 ) do
Begin
Sum := sum + first;
first: = first + k;
End;

2 задача.
S := 2;
step := 1;
Первый цикл для ускорения умножаем число на себя 2, 2^2 2^4? 2^8, 2^16 и т. д.
While S < N Do
Begin
S:=S*S:
step = step + step;
end;
// Нашли, теперь ищем наименьшее
While S >= N Do
Begin
S:=S/2:
step := step - 1;
end;
step := Step + 1;
Выводим step

3 задача
count = 0;
Двигаемся по разрядам в цикле справа налево ппока не останется 1 разряд он по умолчанию не может быт равным нулю
while (N > 9) do
Begin
Num = N mod 10: получаем цифру
N:= N div 10; обрезаем число
If Num = 0 Then
Begin
Count:= count +1; накапливаем количество нулей
End
End
Выводим count

А зачем вы учитесь? Чтобы получить знания и сдать их проверку или просто получить проходняк? Если не хотите учиться, то идите дворниками работать, безмозглые недоучки