Маленький конспект на тему окна и его элементы в Window 7,8,10

5.                                                      

program raf105;

var i,n:integer;

begin

write('Введите N: ');

readln(n);

for i:=1 to n do

 writeln('7');

end.

6.                                                      

program raf105;

var  

 i: integer;

 pro: real;

begin

pro:= 1;

for i:=1 to 20 do

pro*= i;

writeln('Произведение первых 20 чисел: ',pro);

end.

7.                                                      

program raf105;

var i,sum: integer;

begin

for i:=1 to 15 do

sum+= i;

writeln('Сумма первых 15 чисел: ',sum);

end.

№1                                        

program raf105;

var a,otr: integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтобы закончить введите 0');

repeat

 readln(a);

 if a<0

   then otr+= 1;

until a = 0;

writeln('Отрицательных чисел: ',otr);

end.

№2                                        

program raf105;

var a,sum: integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтобы закончить введите 0');

repeat

 readln(a);

 if a>0

   then sum+= a;

until a = 0;

writeln('Сумма положительных чисел: ',sum);

end.

                                              PascalABC 3.4.2