Задача 23 Урок 15

Задача 23 Урок 15

Напишите программу, которая принимает у пользователя два целых числа (часы и минуты) и выводит в консоль полученное время в формате бинарных ASCII-часов 0-11 ч. и 0-59 мин.

type arr=array [1..6] of integer;
var chas,min,i:integer; b:Arr;

procedure time(a:arr; m,time:integer);
var i:integer;
begin
  for i:=m to 6 do
    if time<a[i] then
      write('-')
    else
    begin
      write('+');
      time:=time-a[i];
    end;
end;

begin
  writeln('chas:');
  readln(chas);
  if chas=12 then
    chas:=0;
  writeln('min:');
  readln(min);
  if min=60 then
  begin
      chas+=1;
      min:=0;
  end; 
  b[1]:=32;
  for i:=2 to 6 do
    b[i]:=b[i-1] div 2;
  time(b,3,chas);
  writeln();
  time(b,1,min);
  readln();
end.