Помогите плиз перебить прогу из Pascal в C++

[Sid-666]

Перебейте плиз из Pascal в С++ :

Program rost;
var p,p1,p2,p3: real; M: real;
Const Q=40; R=20; S=30; N=6;
begin M:=1;
for M:=1 to N do
   begin p1:=Q*R/100*(1+S/100)*M-1;
   if p1<=Q then p2:=p1 else p2:=Q; end;
   begin p3:=p2+(100-Q)*R/100*(1+S/100)*M-N-1;
   if M<=N then p:=p2 else
   if (M>=N+1 and p3<100) then p:=p3 else
   if (M>=N+1 and p3>=100) then p:=100 else;end;
begin M:=M+1;
if M>N then writeln('P=',P); readln;end;
end;
end.

[Парсифаль]

#include <iostream>
#include <conio.h>

using namespace std;

int main
{
int p, p1, p2, p3, M;
const int Q = 40;
const int R = 20;
const int S = 30;
const int N = 6;

for (M = 1; M<=N; M++)
{
  p1 = Q*R/100*(1+S/100)*M-1;
  if (p<=Q)
    p2 = p1;
  else 
    p2 = Q;
}

p3=p2+(100-Q)*R/100*(1+S/100)*M-N-1;
if (M<=N) 
  p=p2;
else {
  if ((M>=N+1) && (p3<100)) 
    p = p3; // Смайл?
  else {
    if ((M>=N+1) && (p3>=100)) 
      p=100; } }

M = ++M;
if (M>N)
  cout << "P = " << p;

getch();
return 0;
}

[Sid-666]

опечатка. Там должно быть then p:=p3 else

[Парсифаль]

Что значит then p3? Да и проверьте в цикле фор у меня была опечатка М++

[Sid-666]

Посмотри там я исправил. В смысле опечатка M++ ? А чё там должно быть ?

[Парсифаль]

Я забыл изначально М++ поставить. Сейчас все верно, вроде, хотя я не компилил. Могут быть опечатки.
Ты пробовал запускать?

[Sid-666]

проверил вроде всё ОК. В проге пишет P=100.

[Парсифаль]

Ну прекрасно.

[Sid-666]

Спасибо!!!!! Ты помог мне сдать вычисл. практ.