1. Составьте алгоритм, в результате выполнения которого
запрашивается число. Если это число находится в пределах
от -1 до +1, то сообщается число 0, если число не находится
в пределах от -1 до +1, то сообщается число 1,​

program pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает

для pascal abc

uses graphabc; begin window.title : = 'apple'; var y,y0,x,t: integer; brush.color : = clgreen; y0: =70; x: =70; lockdrawing; for t : = 0 to 8 do begin y: =y0+5*t*t; window.clear(clwhite); circle(x,y,50); redraw; sleep(100); end; end.

2*3=6

512*128*6=393216

393216: 1024=384кб

фефраль-месяц зимы; май-месяц весны; август-месяц лета; сентябрь-месяц осени