Begin For Counter := 1 to 30 do Begin If Counter mod 3 = 0 then Begin Sum := Sum + Counter; End; End; Writeln(Sum); Readln; End.
писал пока не видел ответ слона, да и никогда в паскале не писал программы :D но думаю вроде всё правильно, пара минут =/ (но это понятно что вы только начали учить, и всётаки) P.S. да в IF Begin-end не надо, но это так, для уверенности))