Номер 5 и 6 ????????????
Program zadacha; varsut,ch,min,sek:integer; beginwriteln('vvedite kol-vo sutok');readln(sut);ch:=sut*24;min:=ch*60;sek:=min*60;writeln('V ', sut, ' sutkah ', ch, ' chasov ',min, ' minut ', sek, ' sekund');end.