Паскаль.1) Определите, сколько чисел, введенных пользователем делятся на 3 без…

1) program ABC; var num,count: integer; beginreadln (num); while num<>0 dobegin if (num mod 3)=3 then count: =count+1end; writeln (count) end. 2) program ABC; var num,sum: integer; beginreadln (num); while num<>0 dobegin if (num mod 10) < 5 then sum: =sum+num mod 10; num: =num div 10end; writeln (sum) end.