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

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

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

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.