Жаңа піскен 50 кг қарақаттан кептірілгеннен соң 18 кг қарақат алынды. Кептірілген қарақат жаңа піскен қарақаттың неше пайызын құрайды НЕ УСПЕЮ

Var i: integer; a: real; b: array[0..5] of integer; begin for i: =1 to 5 do begin write('введите числа массива: '); readln(b[i]); a: =sqrt(b[i]); writeln('ответ: ',a); end; readln; end.

2/3, 5/7, 8/5, 1 1/3