– ∙ /– ∙ /– ∙ – /– ∙ /∙ – ∙ ∙ /– ∙ – /∙ ∙
н– ∙ к– ∙ – и∙ ∙ л∙ – ∙ ∙ м– –
ннкнлки
S=640*64=40960 пикселей
N=64
i=5
V=S*i=40960 * 5=204800 бит=25600 байт=25 килобайт
Var K, M, H: longint;
Begin
WriteLn('Введите номер секунды');
ReadLn(K);
H:=K div 3600;
M:=(K-H*3600) div 60;
K:=K-H*3600-M*60;
WriteLn('Прошло часов: ', H, '; минут: ', M, '; секунд: ', K);
Sleep(5000);
End.