Як вивести результат поля для введення даних на сцену​

4)¬a λ b λ ¬c: только это логическое выражение будет равносильно начальному

var i: integer;

begin

  for i: = 35 to 87 do

      if i mod 7 =1 then

          writeln(i);

end.

var i: integer; begin  for i: = 2 to 14 do      writeln(i*i); end.