Паскаль, срочно
Напишите программу, которая определяет правильность записи целого числа в восьмеричной системе счисления.

Формат входных данных

На вход программы поступает символьная строка.

Формат выходных данных

Программа должна вывести ответ 'YES', если строка представляет собой правильную запись целого числа в восьмеричной системе счисления, и 'NO', если запись ошибочна.

Примеры

входные данные выходные данные
12345
YES

Что до других способов, их полно, но они длиннее в разы. Вы не указали, как именно решать, так что...

примерно так vars,s1:string;a,b:integer;beginreadln(s);b:=length(s);for a:= 1 to b doif (s[a]='e') thens[a]:='i';writeln(s)end.

Да ну... кому это надо - писать двадцать строчек кода там, где достаточно пары?