складіть програму для обчислення добутку та суми чисел від 20 до 50 кратних 6 використовуючи цикл for

Program Turashova_Anna;

Const  V: String = '01';  
Function DecToN(A: Longint; D: Byte) : String; 
Begin  If A > D - 1  
then DecToN := DecToN(A div D, D) + V[(A mod D) + 1] 
else DecToN := V [A + 1]; 
end;    

Function NToDec(A: String; D: Byte): Longint;   
Begin   
If Length(a) > 0    
then NToDec := Pos(A [Length(A)], V) - 1 + D * NToDec(Copy (A, 1, Length(A) - 1), D)   
else NToDec := 0;   
end;

Var F: String;     
Begin     
Write('Входной файл Input.txt: '); Readln(F); 
If NToDec(F,2)      
mod 7 = 0      
then Writeln('Выходной файл Output.txt: 0',DecToN(NToDec(F,2) div 7,2))      
else Writeln('Выходной файл Output.txt: 0');     
end.

Объяснение:

Алгоритм-конечная совокупность точно заданных правил решения некоторого класса задач или габор инструкций,описывающих порядок действий исполнителя для решений определенной задачи.

Алгорим это конечный габори правил который определяет последовательность операций для решений конкретного множества задач и обладает пятью важными чертами:конечностями,определенность,ввод,вывод,эффективность

Циклический,генетический разветдчющийся.

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

Меняется порядок действий в алгоритме.

Сори прости что смог ч только га вопросы оьветил