перевод программы из C++ в Pascal

[-tatiana__---]

#include <iostream>
#include <Windows.h>
using namespace std;
int main()
{
SetConsoleCP(1251);
SetConsoleOutputCP(1251);

double result, MIN_POSITIVE, ARG_MIN_POSITIVE;
double a = 3.45;
double b = 1.62;

bool flag = true;


for (double x = 0.5; x <= 3.5; x += 0.15)
{
result = (1 + pow(a, x)) / ((b - x) * pow(sin(x), 3));
cout << x << '\t' << result << endl;

if (result <= 0.) continue; // якщо значення функції від'ємне, то переходим на наступну ітерацію
else
{
if(flag)
{
MIN_POSITIVE = result; // початкова ініціалізація першим додатнім значенням
ARG_MIN_POSITIVE = x; // початкова ініціалізація індексом першого додатнього значення
flag = false; // скидання логічної змінної, (цей блок виконається 1-раз)
}
else
if (result < MIN_POSITIVE) // якщо значення функції менше за поточне мінімальне
{
MIN_POSITIVE = result;
ARG_MIN_POSITIVE = x;
}
}
}

cout << "Найменше додатне значення: " << MIN_POSITIVE << " досягається при аргументі: " << ARG_MIN_POSITIVE << endl;

system("pause");
return 0;
}

[digitalis]

За то, что исходник не форматирован и не обозначен тегами CODE - ата-та по попе объявить ай-яй-яй. Ну и перевести комменты бы хотя бы на древнегреческий или фарси - эти языки наравне с применённым украинским одинаково популярны на русскоязычном форуме.
Добрый я сегодня (моя жена звалась Татьяна) - начало подскажу.

const 
   a = 3.45;
   b = 1.62;
var
  x, tmp, result, MIN_POSITIVE, ARG_MIN_POSITIVE: Double;
  flag: Boolean ;
begin
   flag := true;
   x := 0.5 ;
   while (x <= 3.5) do 
    begin
       tmp := Sin(x) ;
       result := (1 + Pow(a, x)) / ((b - x) * tmp * tmp * tmp));
       writeln (x,result) ;
       if (result <= 0.) then Continue; // if the function value is negative, then.....

Ну и далее таким же макаром. Не забыть закрывать все beginы endами - это соответствует Сишным {} . И не забыть в конце цикла модифицировать x := x + 0.15 ;
Совсем забыл - в Паскале же нет Pow.

    Function Pow(Var chislo, stepen:Real) of Real;
     Var per:real;
     Begin 
      Per:= Abs(chislo);
      If chislo < 0 Then Pow:= (-1)*Exp((stepen)*Ln(per))
       Else Pow:= Exp((stepen)*Ln(per));
     end;

Но эта функция в случае отрицательного chislo и не целой stepen выдаст бред сивой кобылы. В данном примере первый Pow этим не опасен, а второй заменён умножениями.

[digitalis]

Ну вот, крик выпиющего во пустыне...
"
-Ни фига я ему не сделаю.
-А мне это и не надо.
" © М.М.Жванецкий