Перевести из Pascal в Mathcad

Program Program1;
VAR
  M, K, Q, Q1, Q2 : INTEGER;
  H, T, T1, T2, Snr, Snr1, Snr2, Sih, Sih1, Sih2 : REAL;
  Qopt, Hopt, Topt, Hopt1 : REAL;
BEGIN
 M := 50;
 K := 2000;
 Q := 1500;
 Q1:= 500;
 Q2:= 3000;
 H := 0.1;
 WRITELN('1.');
 T := Q/M;
 WRITELN('Dlitelnosti cicla = ', T:5:2);
 Snr := K/T;
 WRITELN('Srednesutocnie nakladnie rashodi = ', Snr:5:2);
 Sih := H*Q/2;
 WRITELN('Srednesutocnie izderjki hranenia = ', Sih:5:2);
 WRITELN('2.1');
 WRITELN('Analogicnii rascet dlya Q1=',Q1);
 T1 := Q1/M;
 WRITELN('Dlitelnosti cicla = ',T1:5:2);
 Snr1 := K/T1;
 WRITELN('Srednesutocnie nakladnie rashodi = ', Snr1:5:2);
 Sih1 := H*Q1/2;
 WRITELN('Srednesutocinie izderjki hranenia = ', Sih1:5:2);
 WRITELN('2.2');
 WRITELN('Analogicnii rascet dlya Q2=',Q2);
 T2 := Q2/M;
 WRITELN('Dlitelnosti cicla = ',T2:5:2);
 Snr2 := K/T2;
 WRITELN('Srednesutocinie nakladnie rashodi = ', Snr2:5:2);
 Sih2 := H*Q2/2;
 WRITELN('Srednesutocinie izderjki hranenia = ', Sih2:5:2);
 WRITELN('3.');
 Qopt := SQRT((K*M*2)/H);
 WRITELN('Optimalnii razmer partii = ', Round(Qopt));
 Hopt := Qopt/2;
 WRITELN('Optimalnie srednie izderjki hranenia = ', Round(Hopt));
 Topt := Qopt/M;
 WRITELN('Optimalnaia periodicnosti popolnenia = ',Round(Topt));
 Hopt1 := Qopt*H;
 WRITELN('Optimalnii srednii uroveni zapasa = ', Round(Hopt1));
 READLN;
END.