Обеденное меню

[BDA]

Basachi, циклы возьмете из 4 сообщения темы.
А вот то, что внутри циклов:

begin
    x := a * 20 + n * 10 + i * 40 + j * 5;
    if ((x >= 90) and (x <= 110)) then
        writeln('a = ', a, ' n = ', n, ' i = ', i, ' j = ', j, ' x = ', x);
end;