все надо сделать в паскале. не было на теме, болел. помогите, завтра утром надо сдать.

На день рождения пришли Н детей. Из них В мальчиков. Сколько пришло девочек?  

 

 

 

 

 

Составить программу вычисления функции:

Y= ((x+1)^2+2(x+1))/4
рассчитать для x=3. 

 

1) program prim;uses crt;var h,b,dev:integer;begin clrscr; writeln("Введите общее кол-во детей"); readln(h); writeln("Из них мальчиков"); readln(b); dev:=h-b; writeln("На день рождения пришло", dev ,"девочек."); repeat until keypressed;end.2)program prim1;uses crt;var x:integer;     y:real;begin clrscr; x:=3; y:=(sqr(x)+2*x+3)/4; writeln("Y равно: ", y); repeat until keypressed;end.