Под домиком, где жила Дороти, была вырыта яма, в которой можно спрятаться и переждать ураган. Но кому хочется отсиживаться в яме! Да ещё и Тотошка куда-то подевался, хотя небо потемнело и стало как будто ближе. Вот если бы Дороти могла сверху посмотреть на землю и определить, стоит прятаться или ураган на этот раз пройдёт мимо. Если трёхзначное число – охват непогоды – такое, что произведение первой и второй цифр числа кратно трём, а последняя цифра не равна 9, то можно не прятаться. Напишите программу, которая это определит.

Формат ввода
Вводится трёхзначное число.

Формат вывода
Вывести Можно не прятаться, если все условия выполнены, или произведение первой и второй цифр числа и через пробел последнюю цифру, если прятаться нужно.
Ввод
268
Вывод
Можно не прятаться

Вводим 200 Вывод 220

Объяснение:

var s, n, i: integer;

begin

for i:=200 to 250 do   //Создаём цикл, который будет прогонять

begin                           // значения S от 200 до 250

   s:=i;                          // логичнее начинать i c 200 т.к. while работает

   n := 100;                 // при условии, что s- 100 >= 100

   while s - n >= 100 do

   begin

        s := s + 20;

        n := n + 40;

   end;

writeln(i, ' ',s)     // вывод всех значений от 200 до 250

end;                   // выбираем нужный

end.

end.

Насколько я понял нужно не всю дату, а только 2006 год написать.
Вот алгоритм, который это делает:

использовать Робот
алг
нач

|---2---
закрасить
вверх
закрасить
вверх
закрасить
вверх
вверх
закрасить
вправо
закрасить
вправо
закрасить
вниз
закрасить
вниз
закрасить
влево
закрасить
вправо
вниз
вниз
закрасить
влево
закрасить
вправо
вправо
вправо

|---0---
закрасить
вверх
закрасить
вверх
закрасить
вверх
закрасить
вверх
закрасить
вправо
закрасить
вправо
закрасить
вниз
закрасить
вниз
закрасить
вниз
закрасить
вниз
закрасить
влево
закрасить
вправо
вправо
вправо

|---0---
закрасить
вверх
закрасить
вверх
закрасить
вверх
закрасить
вверх
закрасить
вправо
закрасить
вправо
закрасить
вниз
закрасить
вниз
закрасить
вниз
закрасить
вниз
закрасить
влево
закрасить
вправо
вправо
вправо

|---6---
закрасить
вверх
закрасить
вверх
закрасить
вверх
закрасить
вверх
закрасить
вправо
закрасить
вправо
закрасить
вниз
вниз
закрасить
влево
закрасить
вправо
вниз
закрасить
вниз
закрасить
влево
закрасить
вправо
вправо
вправо

кон