Cоставить алгоритм вычисления выражения z=x/корень из y+3

Программа выполнена в pascalabc.net program aik; var x,y: integer; z: real; begin writeln('введите значение х: '); read(x); writeln('введите значение у: '); read(y); if (y+3)> 0 then begin z: =x/sqrt(y+3); writeln('ответ: ', z); end else begin writeln('ошибка'); end;   end.

1) 24+18+12=54 (ч.) 2) 54-35=19 (ч.) не любят не один вид спорта. 3) 10+8+5=23 (ч.) - любят 2 или больше видов спорта. 4) 23-19=4 (ч.) - любят все три вида спорта.

ответ: 4 человека любят три вида спорта.