Дано вещественное число а. Составить алгоритм вывода всех натуральных чисел n, при которых выполняется условие

Формат JPEG – самый распространенный формат, читаемый всеми программами. Фотофайлы в таком формате могут размещаться в интернете и печататься. При сохранении в JPEG, качество можно определять самому (например, работая в Photoshop, самое низкое и самое высокое качество, соответственно, 1 и 12). Недостатками этого формата является то, что при каждом сохранении изображения оно сжимается и теряет часть информации, а слои объединяются и последние изменения уже отменить не получится. 

Я тебе не советую JPEG 
Лучше программа PNG 
Вот почему 
Формат PNG – создает файлы с меньшим размером и без потерь в качестве. Применяется при управлении прозрачностью. Совместно с форматом GIF, очень часто PNG используют для графики. Файлы, сохраненные в таком формате, загружаются в интернет без проблем.

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=Arr('первое', 'второе','третье','четвертое','пятое');
  var p,r:real;
  var c:char;
  Write('Введите первое число: '); Readln(r);
  for var i:=0 to 3 do begin
    Write('Выберите ',s[i], ' действие (a) сложить, b) вычесть,');
    Write('c) умножить, d) разделить): '); Readln(c);
    Write('Введите ',s[i+1],' число: '); Readln(p);
    case c of
    'a':r+=p;
    'b':r-=p;
    'c':r*=p;
    'd':r/=p;
      end;
    Writeln('Результат: ',r)
    end
end.