Какой логической операции в языке Pascal не существует?

or
xor
nor
not

может быть крик?

решение должно иметь од 20 до 5000

1)m(hcl)=50*0.292=14.6г

2)n(hcl)=m/m=14.6/36.5-=0.4моль

3)n(оксида металла)=0,4/2=0,2

4)m(оксида металла)= 8/0,2=40

5)раз металл двухвалентен, то значит формула - meo, следовательно вычти из молярной массы оксида массу кислорода

м(металла)=40-16=24

следовательно, mgo 

 

 

Program grapho; uses crt ,graphabc; var xc ,yc ,r1 ,r2 ,rc ,ro ,n ,i ,x ,y : integer;     a : real; begin repeat write ( 'количество отверстий от 3 до 7 n=' ); read (n ); until n in [3..7 ]; clrscr; hidecursor; xc : =windowwidth div 2; yc : =windowheight div 2; r1 : = 50; r2 : = 150; rc : = 100; ro : = 30; a : =2 *pi /n; circle (xc ,yc ,r2 ); circle (xc ,yc ,r1 );   for i : =1 to n do   begin   x : =xc +round (rc * cos (a *i ) );   y : =yc -round (rc * sin (a *i ) );   circle (x ,y ,ro );   end; end.