Квадратный корень из x в Паскале можно получить с функции:
sqrt(x)
sqr(x)
int(x)
frac(x)

sqrt(x) - квадратный корень числа x

sqr(x) - возведение в квадрат

int(х) - возвращает целое число

frac(х) возвращает дробное число

на 1 дереве - 5 

на 2дереве - 7

1) присвоения : =2)343,5  3) 1a=2 b=5var a,x,x1,x2,x3: integer; begin      read(a);       writeln('4. s=',4*a);             read(x);       x3: =x mod 10;       x1: =x div 10;       writeln('5. x=',x3*100+x1); end.