Uses crt;
var a:array[1..4] of integer;
sum,i:integer;
begin
clrscr;
writeln('Введите 4 целых числа:');
for i:=1 to 4 do
begin
read(a[i]);
if a[i]mod 3=0 then sum:=sum+a[i];
end;
writeln('Сумма чисел, кратных трем: ',sum);
<span>end.</span>
<span>это новая строка. т.е</span>
Кнопка "ПУСК" - 8
Управляющая кнопка - 14
Папка - 1
Полоса прокрутки - 4
Ярлык - 5
Меню - 2
Панель задач - 9
Кнопка "закрыть окно" - 3
Быстрый запуск - 13
"Свернуть окно" - 12
Системный трей - 15
Развернуть окно - 7
Окно программы - 11
Заголовок окна - 10
Поле ввода - 6
Кнопка программы - 16
<span>Наиболее распространённый схематический параметр - это схематический индекс символа на схеме</span>