Определить, что будет напечатано в результате выполнения программы:

1) program wl;
var x,y: byte;
begin
y:=3; x:=y-1;
writeln (x,y);
end.
(Ответ: 23)

2) program w2;
var x,y:
real;
begin y:=15;
x:=y-10+sqr (y-2);
writeln('x=', x);
(Ответ: х=174)

3) Вычислить значение
[tex]b = ( \frac{2x \ + 3y}{ \sqrt{2xy} } ) {}^{2} [/tex]
​