begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p < 200)
.Max
.Println
end.
Программа на Кумире прилагается.
Вообще в Паскале такие числа вроде пишутся с точкой типо 3.6 ,тогда он будет принимать их
s := '123456789'; - строковой переменной s присваивается значение
Delete ( s, 1, 2 ); - из строки s удаляется 2 символа, начиная с 1-го (значение s будет '3456789')
n := Pos ( '6', s ); - определяется номер позиции символа '6' в строке s. Этот номер равен 4
writeln ( n ); - на экран выводится значение n, т.е. 4