Const N=10;
var i, b, s: integer;
a: string;
begin
readln(b);
a := inttostr(b);
for i := 1 to length(a) do
if (strtoint(a[i]) > s) then
s := strtoint(a[i])
else
s:=10;
if (s = 10) then writeln('No') else writeln('Yes');
<span>end.
Удачи =)</span>
Эта функция от трех переменных. Логическая схема во вложении. Удачи!
Задача на логику, простая же, зачем тут выкладывать?
Ложно высказывание для имени Вера, потому что оно не подходит под обе части высказывания.