Pascal!! вычислить сумму целых чисел кратных 4 в интервале от 0 до 200
Program main; var s,i:integer; begin for i:=0 to 200 do if i mod 4=0 then s:=s+i; writeln('Сумма чисел кратных 4 - ', s); readln; end.