РЕБЯТ ПОМОГИТЕ ПОЖАЛУЙСТА УМОЛЯЯЯЯЮ!!!!!!!!!!!!!3. Напишите общий вид оператора Цикл с

РЕБЯТ ПОМОГИТЕ ПОЖАЛУЙСТА УМОЛЯЯЯЯЮ!!!!!!!!!!!!!
3. Напишите общий вид оператора Цикл с условием.
5. Точно и верно сформулируйте условие задачи, которая решается в данной программке:
Uses Crt;
Var N : Integer; S : Byte;
Begin
Write('Введите естественное число: '); ReadLn(N);
S := 0;
While N lt;gt; 0 Do
Begin
S := S + N mod 10; N := N Div 10
End;
WriteLn('S = ', S : 4);
End.

6. Сделайте программку на языке Turbo Pascal.
1) Дано трехзначное число. Отыскать сумму цифр этого числа.
2) Отыскать четырехзначное число, которое при дробленье на 133 дает остаток 125.