СРОЧНО, ДАЮ 50 БАЛЛОВ! Составить программу по ИКТ. Задача на фото

в лс ща кину

var a,b,c,s,k,y:integer;begin  read(a,b,c);  s:=(sqrt(a+(b*b*b)))/(3*c);  k:=(s-sqrt(abs(a*b*c)));  y:=(s+k-((s)/(b*c)));  write(y);end.