Однажды в Артеке за круглым столом сидели пятеро ребят родом из Москвы, Санкт-Петербурга, Новгорода, Перми и Томска: Юра, Толя, Алеша, Коля и Витя. Москвич сидел между Томичем и Витей, петербуржец - между Юрой и Толей, a напротив него сидели пермяк и Алеша. Коля никогда не бывал в Санкт-Петербургу, а Юра не бывал в Москве и Томске, а Томич с Колей регулярно переписываются. В каком городе живет каждый из ребят?
Алгоритм
Заносим в переменную res (результат) число 0. Оно заведомо меньше любого из натуральных чисел в последовательности.
Читаем очередное число в последовательности. Если оно больше res и при этом не превышает 15, записываем его в res. Если оно равно нулю, чтение прекращаем и выводим значение res.
var
res,num:integer;
begin
res:=0;
repeat
Read(num);
if (num>res) and (num<=15) then res:=num
until num=0;
Writeln(res)
end.