использовать Рисователь
алг
нач
в точку(150,200)
перо(3,черный)
окружность(150,200,50)
перо(3,черный)
окружность(235,170,38)
окружность(225,245,38)
окружность(160,290,38)
окружность(90,265,38)
окружность(60,195,38)
окружность(100,130,38)
окружность(175,115,38)
кисть(желтый)
залить(150,200)
кисть(красный)
залить(50,200)
кисть(оранжевый)
залить(100,100)
кисть(желтый)
залить(150,110)
кисть(зеленый)
залить(250,150)
кисть(голубой)
залить(200,250)
кисть(синий)
залить(150,270)
кисть(фиолетовый)
залить(100,250)
кон
не указано, как именно завершать ввод, поэтому сделал завершение словом exit
Кодprogram task31784852; var number, maxLength, maxNumber: integer; inputIsTrue: boolean; inputString, maxLengthString: string; begin inputIsTrue := false; maxLength := 0; Writeln('Напишите exit, чтобы завершить ввод и получить результат'); while inputIsTrue = false do begin Readln(inputString); if Length(inputString) = 0 then continue; if inputString = 'exit' then break; number := number + 1; if Length(inputString) > maxLength then begin maxLength := Length(inputString); maxLengthString := inputString; maxNumber := number; end; end; Writeln('Самая длинная строка с номером ', number, ': ', maxLengthString); end.ПроверкаНапишите exit, чтобы завершить ввод и получить результат
a
aa
aaa
lsd
pwpefowpeofkpwef
123462048201180301313031
exit
Самая длинная строка с номером 9:
Чипсе́т (англ. chipset) — набор микросхем, спроектированных для совместной работы с целью выполнения набора заданных функций