Написать программу в паскале. найти произведение и сумму чисел кратных 3 от а до б

Это первый классuses crt;var a,b,sum,pro:integer;beginreadln(a,b);for a to b do if a mod 3 =0 then sum:=sum+a;for a to b do if a mod 3 =0 then pro:=pro+a;write (summa=sum,proizvedenie=pro);end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.