Перевод с Pascal на C# - C# (181764)

Формулировка задачи:

Для каждого посетителя парикмахерской (с одним мастером) известны следующие величины: t – момент его прихода и τ – продолжительность его обслуживания. Сколько клиентов обслужит мастер за смену продолжительностью T? Сколько рабочего времени он потратит на обслуживание? Время вводиться в формате <часы>пробел<минуты> Помогите пожааалуйста

                    Листинг программы
                
 
                            
                        
program math1;
uses crt;
var
t1m,tm,t3m,rm,t7,t8,n:integer;
t,t1,t2,t3,t4,t5,t6,r:real;
key:char;
begin
clrscr;
writeln('beginning time and time of work');
readln(t1,t1m,t,tm);
t1:=t1+t1m/60;{vremya nachala}
t:=t+tm/60;
t2:=t1+t;{vremya kontsa raboti}
t5:=t1;
n:=0;
t6:=0;
repeat
writeln('Vremya poyavleniya ',n+1,' klienta');
readln(t3,t3m);
t3:=t3+t3m/60;
writeln('service-time of ',n+1,' klienta');
readln(r,rm);
r:=r+rm/60;
if t3<t5 then
begin
t4:=t5;
t5:=t4+r;
end
else
begin
t4:=t3;
t5:=t4+r;
end;
if t5<t2 then
begin
n:=n+1;
t6:=t6+r;
t7:=trunc(t6);
t8:=trunc((t6-t7)*60);
if t8<10
then writeln('number of client ',n,' service-time ',t7,':0',t8)
else writeln('number of client ',n,' service-time ',t7,':',t8);
end;
t7:=trunc(t5);
t8:=trunc((t5-t7)*60);
if t8<10
then writeln('tekushee vremya ',t7,':0',t8)
else writeln('tekushee vremya ',t7,':',t8);
 
until t5>=t2;
writeln('time out!!!');
t7:=trunc(t6+r);
t8:=trunc((t6+r-t7)*60);
if t8<10
then writeln('client ',n+1,' service-time ',t7,':0',t8)
else writeln('client ',n+1,' service-time ',t7,':',t8);
readln;
end.

Решение задачи: «Перевод с Pascal на C#»

textual
                            Листинг программы 
                        
 
                            
                        
program math1;
 
uses crt;
var
  t1m, tm, t3m, rm, t7, t8, n: integer;
  t, t1, t2, t3, t4, t5, t6, r: real;
  //key: char;
 
begin
  clrscr;
  writeln('beginning time and time of work');
  readln(t1, t1m, t, tm);
  t1 := t1 + t1m / 60;{vremya nachala}
  t := t + tm / 60;
  t2 := t1 + t;{vremya kontsa raboti}
  t5 := t1;
  n := 0;
  t6 := 0;
  repeat
    writeln('Vremya poyavleniya ', n + 1, ' klienta');
    readln(t3, t3m);
    t3 := t3 + t3m / 60;
    writeln('service-time of ', n + 1, ' klienta');
    readln(r, rm);
    r := r + rm / 60;
    if t3 < t5 then
    begin
      t4 := t5;
      t5 := t4 + r;
    end
    else
    begin
      t4 := t3;
      t5 := t4 + r;
    end;
    if t5 < t2 then
    begin
      n := n + 1;
      t6 := t6 + r;
      t7 := trunc(t6);
      t8 := trunc((t6 - t7) * 60);
      if t8 < 10
        then writeln('number of client ', n, ' service-time ', t7, ':0', t8)
      else writeln('number of client ', n, ' service-time ', t7, ':', t8);
    end;
    t7 := trunc(t5);
    t8 := trunc((t5 - t7) * 60);
    if t8 < 10
      then writeln('tekushee vremya ', t7, ':0', t8)
    else writeln('tekushee vremya ', t7, ':', t8);
    
  until t5 >= t2;
  writeln('time out!!!');
  t7 := trunc(t6 + r);
  t8 := trunc((t6 + r - t7) * 60);
  if t8 < 10
    then writeln('client ', n + 1, ' service-time ', t7, ':0', t8)
  else writeln('client ', n + 1, ' service-time ', t7, ':', t8);
  readln;
end.