Пешеходный переход.

[Михаил213455]

Всем привет))) Срочно нужна помощь по составлению программы. Нужно составить программу дорожного знака в АВС Паскаль под названием "Пешеходный переход". Заранее спасибо за помощь!

[Serge_Bliznykov]

program Peshehodny_Perehod;
begin
   WriteLn('Программа "Пешеходный переход"');
   WriteLn('1) Посмотрите налево');
   WriteLn('2) Посмотрите направо');
   WriteLn('3) Если нет машин или они уступают Вам дорогу - переходите, если есть машины- переход к п.1');
end.

[digitalis]

У меня получилось на 3 строчки короче: