У и запиши верный ответ.

(B∨K)&(B∨K¯¯¯)

​

мальчик с пальчик, карлик нос,буратино,карабас барабас,змей горыныч, царевна лягушка,

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.

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

желтый знак - нехватка памяти

все остальное - размер  

если я парвильно понял , то вотvar x,y : integer;

begin

readln(x);

if   x> =0 then y: =1

esle y: = 0;

writeln(y);  

end.