http://ru.static.z-dn.net/files/de4/b88eb2ad5973e441839e93b057785bad.txt
Var n:string;k,i:integer;beginreadln(n);k:=length(n);if k=3 then writeln('yes') else writeln('no');end.
всё правильно. спасибо
чё то у тебя не то. не правильно. цифру 90 выводит в начале и ничего не определяет