имитационное моделирование нужен исходник на паскале

[ston]

Вот собственно условие:

На станцию технического обслуживания (СТО) согласно закону Эрланга второго порядка со средним временем прибытия 14 мин прибывают автомобили для технического обслуживания (36% автомобили) и ремонта (64% автомобилей).
На СТО есть два бокса для технического обслуживания и три бокса для ремонта. Выполнение простого, средней сложности и сложного ремонтов - равновероятно.
Время и стоимость выполнения работ по техническому обслуживанию и ремонту зависит от категории выполняемых работ (табл. 2).
После технического обслуживания 12% автомобилей поступают для выполнения ремонта средней сложности.
Построить гистограмму времени обслуживания автомобилей.
Оценить выручку СТО за пять дней работы.

Есть исходник на сишке но мне надо на паскале((

Программный код:

#include<iostream.h>
#include<math.h>
#include<stdio.h>
#include<conio.h>
#include<stdlib.h>
 void main()
 {
 int tk,kol,i=0,j=0,r1=0,r2=0,r3=0,k=1,l=1,m=1,n=1;
 float p, st=0, s_to=0, s_pr=0, s_sr=0, s_sl=0, SUM;
 cin>>tk;
 
 while (st<=tk)
 {
 p = - log(rand())/32767*14;
 st=st+p;
 i++;
 }
 
 kol=i;
 
 for (i=1; i<=kol; i++)
 {
 p=float(rand())/32767;
 if (p<=0,12) {j++; r2++;}
 else if (p>0,12 && p<=0,36) j++;
 else if (p>0,36 && p<=0,57) r1++;
 else if (p>0,57 && p<=0,78) r2++;
 else r3++;
 }
 
 while (k<=j)
 {
 p= float(rand())/32767*300+100;
 s_to=s_to+p;
 k++;
 }
 
 while (l<=r1)
 {
 p=float(rand())/32767*400+50;
 s_pr=s_pr+p;
 l++;
 }
 
 while (m<=r2)
 {
 p=float(rand())/32767*1300+100;
 s_to=s_to+p;
 k++;
 }
 
 while (n<=r3)
 {
 p=float(rand())/32767*2200+350;
 s_sl=s_sl+p;
 n++;
 }
 
 SUM=s_to+s_pr+s_sr+s_sl;
 cout<<"viruchka za 5 dnei ravna"<<SUM<<endl;
}

Заранее спасибо....

[k0tone]

Вот набросал на паскале... Вместо p вбейте свои формулы, и там где "Вопросительный знак" я не понял что там к чему.

program test;
uses crt;
var tk,kol,i,j,r1,r2,r3,k,l,m,n:integer;
    p,st,s_to,s_pr,s_sr,s_sl,SUM:real;
begin
write('tk=');
readln(tk);
i:=0; j:=0; r1:=0; r2:=0; r3:=0; k:=1; l:=1; m:=1; n:=1;
st:=0; s_to:=0; s_pr:=0; s_sr:=0; s_sl:=0;

while st<=tk do
  begin
    p:=;
    st:=st+p;
  end;

kol:=i;

for i:=1 to ? do
  begin
    p:=;
    if p<=0.12 then
      begin
        j:=j+1;
        r2:=r2+1;
      end
  else
    if (p>0.12) and (p<=0.36) then j:=j+1
  else
    if (p>0.36) and (p<=0.57) then r1:=r1+1
  else
    if (p>0.57) and (p<=0.78) then r2:=r2+1
  else r3:=r3+1;
  end;

  while k<=j do
    begin
      p:=;
      s_to:=s_to+p;
      k:=k+1;
    end;

  while l<=r1 do
    begin
      p:=;
      s_pr:=s_pr+p;
      l:=l+1;
    end;

  while m<=r2 do
    begin
      p:=;
      s_sr:=s_sr+p;
      m:=m+1;
    end;

  while n<=r3 do
    begin
      p:=;
      s_sl:=s_sl+p;
      n:=n+1;
    end;

  SUM:=s_to+s_pr+s_sr+s_sl;
  writeln('viruchka za 5 dnei ravna',SUM);
  readln;
end.

P.S. Первый раз перевожу из С++ в Pascal... Как следствие могут быть банальные ошибки.

[ston]

Большое спасибо

[artur129]

Может ест у кого эта в виде GPSS модуля буду блогодарен