Program UglVrem;
uses crt;
         var h,m,s:integer;
           var alpha:integer;
             var k:integer;
                var alpha1,m1:real;
begin
     clrscr;
       writeln('Vvedite ugol: ');readln(alpha);
        
	{***Perevod v chasi, minuti}
        
h:=alpha div 30;
m:=(alpha mod 30)*2;
writeln('Sejchas: ',h,' chasov ',m, ' minut ');readln;

        {***1 chast' zadaniya*** ÐÅØÈÒÜ ÝÒÎ !}

alpha1:=(h*30*(12/11)); 	{gradusov dostigla chasovaya strelka}
m1:=(alpha1-h*30); 		{dlina puti chasovoj strelki v gradusah}
k:={60}-m; 			{ostalos projti do otmetki v 360 gradusov dlja minutnoj strelki}
m1:=m1*2 + k; 			{summa perevedennaya v minuty}
{m1:=(alpha1-h*30)*2;}
write('Do sovpadeniya chasovoj i minutnoj strelki ostalos ',m1:3:1,' minut');readln;
end.

Îøèáêà â ñòðîêå: k:={60}-m; èíîãäà ïðîãà ðàáîòàåò èíîãäà íåò...