Сделать блок схему
begin
read(a);
h:=0;
while (a<>0) do
begin
if(a<500)and(a mod 3=0)then h:=h+1;
read(a);
end;
writeln(h);
end.​

Объяснение:

только не бан

ну смотри,

1. На вкладке Файл нажмите Печать.

2. Для предварительного каждой страницы используйте стрелки в нижней части окна предварительного Если текст отображается слишком мелко, увеличьте масштаб с ползунка в нижней части страницы.

3. Выберите количество копий и любые другие нужные параметры, а затем нажмите кнопку Печать.

Чтобы напечатать только определенные страницы, свойства документа или исправления и комментарии, в разделе Настройка щелкните стрелку в правой части кнопки Напечатать все страницы (по умолчанию), чтобы увидеть все варианты.

Чтобы напечатать только определенные страницы, выполните одно из указанных ниже действий.

Чтобы напечатать страницу, отображаемую в режиме предварительного выберите Текущая страница.

Чтобы напечатать последовательные страницы, например 1–3, выберите вариант Настраиваемая печать и введите номера первой и последней страниц в поле Страницы.

Чтобы напечатать отдельные страницы и диапазон одновременно (например, страницу 3 и страницы 4–6), выберите Настраиваемая печать и введите через запятую номера и диапазоны (например, 3, 4-6).