Построить логические схемы: f=a \/ b /\ a, f=а/\в\/ ¬(в\/а)

пусть введенный интервал будет

b и c,где b< c

var a,b,c,i: longint;

begin

    read(b,c);

    for i: =b to c do

            if i mod a=0 then write(i);

end.

1.

var n: integer; begin  cls;   for n: =1 to 10 do begin    write('n=',sqr(n)+5,' ');   end; end.

решить на паскале?

4 клетки вниз и 7 вправо                                                                                                                           

20 - 25 = -5

-5 в десятичной системе