Question

Помогите с информатикой. ответ срочно​

Answer 1

program sutki;

var a,b,c: integer;

begin

write('задайте число часов');

readln(a);

b:=a mod 24;

c:=a div 24;

write(c,'суток и ',b,'часов');

end.