var d, n, S: integer; begin n:=86400; writeln('Введите количество дней: '); readln(d); S:=n*d; writeln('Секунд в днях: ', S); end.