var a,t: real;
begin
write('vvedite kolichestvo chasov, kotoroe spit chelovek');
readln(a);
t:=(a*100)/24;
write('chelovek spit ',t:2:0,'%');
readln;
end.
var a,t: real;
begin
write('vvedite kolichestvo chasov, kotoroe spit chelovek');
readln(a);
t:=(a*100)/24;
write('chelovek spit ',t:2:0,'%');
readln;
end.