Решите номера 2 и 3. В третьем трёзначное​

№2

program n2;

var a,b,y:real;

begin

readln(a);

b:=sqrt(sqt(a)+1);

y:=abs(b+5)/sqr(b);

writeln(y)

end.

№3

program n3;

var a,b:integer;

begin

write('Введите трёхзначное число: ');

readln(a);

b:=a div 100;

a:=a div 10;

a:=b+a;

writeln('Сумма первых двух цифр вашего числа = ',a)

end.

P.s:Предположил, что язык выполнения - Pascal.