program angle2; var H, M, S, A, T, B: LongInt; begin Assign (input, 'input.txt'); Reset (input); assign (output, 'output.txt'); Rewrite (output);…

Program angle2; varH, M, S, A, T, B: LongInt; beginAssign (input, 'input.txt'); Reset (input); assign (output, 'output.txt'); Rewrite (output); ReadLn (H, M, S); T: =H*3600+M*60+S; A: =(12*3600) div 360; B: =T*A; WriteLn (B, ', H); Close (input); {Забыл закрыть файл}Close (output); {Забыл закрыть файл}ReadLn; {Поставь чтоб ответ считать а то программу выполнишь она сразу закроется, оператор обозначает здесь ждет нажатия клавиши чтобы завершить процесс} end.