посчитайте в паскале даю 20 поинтов очень ​

Program zero;

Var x, y, b, c: Integer; k, a:Real;

Begin

Writeln('Введите "х" и "у": ');

Readln(x, y);

Whiteln('Введите "b" и "c" :');

Readln(b, c);

k:=Sqrt((8*Sqr(x)-3)/(2*Sqr(x)*y))-Sqr(x+y)/2*x*y;

a:=Sqrt((b+c)/(5*Sqr(b) *c)) + Sqr(b) /(2*Sqr(c)-8)

Whiteln('k =' , k) ;

Whiteln('a=' , a) ;

Readln

End.