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

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

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

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.