//Pascal ABC.NET 3.1 сборка 1256
Var
ar:array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do
begin
readln(ar[i]);
if ar[i] mod 3=0 then k:=k+1;
end;
writeln(k);
end.
В установке компьютер получает програмное обеспечение а в загрузке загружает его для дальнейшей работы
Лінійні, розгалуження, повторення.