Вопрос сформулирован скорее всего неверно
Если отвечать по существу исходя из того что понял, то можно перефразировать как "придумайте информационные услуги"
Если поискать в поисковиках, то по моему перефразированному вопросу можно найти ответ, всего доброго!
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
var x:=0.5;
while x<=2.1 do begin
Writeln('x=',x:3:1,' y=',tan(sin(x))+2);
x+=0.2
end
end.
<u><em>Результат выполнения программы</em></u>
x=0.5 y=2.5198809015013
x=0.7 y=2.75112025607465
x=0.9 y=2.99586604900996
x=1.1 y=3.23765167169871
x=1.3 y=3.43923041043966
x=1.5 y=3.5488600833871
x=1.7 y=3.52922062804747
x=1.9 y=3.38750383103094
x=2.1 y=3.16912357769899
результатом этого алгоритма могут быть числа 217 1218 112 ответ 3
С какими списками? Я не знаю по какому учебнику вы учитесь)