Составить программу и блок схему (pascal). Найти сумму от 1 до Р кратное 3

Ответ:

Объяснение:

var

p,i,s:integer;

begin

readln(p);

s:=0;

for i:=1 to p do  

if i mod 3 =0 then s:=s+i;  

writeln (s);  

end.