написать программу

[Wtfololo]

программу по идее надо написать в программе Lazarus, но т.к. он похож на Delphi решил написать сюда..Вот условие программы: Найти сумму целых положительных чисел из промежутка от 0 до В, кратных 4(значения переменных 0 и В вводятся с клавиатуры).
Очень прошу вас помочь...

[phomm]

А что за переменная ноль ? не слышал о такой ))

Напишете словами последовательность действий - переведу Вам в код. Да, отучаю от халявы ) а как иначе )
Ну можно и сразу код, но это уже за отдельную плату )

[Wtfololo]

begin
for i:= 0 to b do
write('vvedite next = ');
readln(m );
if (m > 0) and (m mod 4 = 0 ) then sum:= sum + m ;
end;
writeln('result = ', sum);
readln;
ну вот примерно набросал, не знаю только правильно ли..

[phomm]

begin
write('vvedite b = ');
readln(b );
sum := 0;
for i:= 0 to b do
if i mod 4 = 0  then sum:= sum + i ;
writeln('result = ', sum);
readln;

Если честно, не понял что есть положительные целые числа из промежутка от 0 до В, по идее только если вдруг В отрицательное...то надо проверять, а так код(мной подправленый) вроде отвечает условию, но все равно проверить, я его прямо тут накатал