В заданный непустой текст входят только цифры и буквы. Определить, удовлетворяет ли он следующему свойству: текст совпадает с начальным отрезком ряда 0123456789 (например, 0, 01, 012) - Pascal(Паскаль) - Справочник юного программиста Pascal/Delphi

var
a,s:string;
begin
a:='0123456789';
readln(s);
if copy(a,1,length(s))=s then writeln('yes') else writeln('no');
readln;
end.