Ответ:

Снизу

Объяснение:

program Programma1;

var A:integer;

begin

readln(A);

while A <= 30 do

begin

   write (A, ' ');

   A := A + 4;

   end;

end.