Пожалуйста посчитайте пожалуйста,подробно и скинте в ответы фото.

var x : integer;
y : real;

begin 
read(x);
y:=(2*x-5)/(x-8);
writeln(y:4:2);
end


varx , y, h : integer;s : real;
begin  readln(x,y); s:=((x/7)+(y/7))*90; h:=Trunc(s); writeln(h);end.