Переделать в код Delphi!!

[Настена290]

Вот код написанный на паскале..а мне надо чтоб он был на языке Delphi.... помогите пожалуйста кому не сложно!!

Program levii;{Метод левых прямоугольников}
uses crt;
var i,n:integer; a,b,h,x,xb,s:real;
function f(x:real):real;
begin f:=(1/x)*sin(3.14*x/2); end;
begin
clrscr;
write('Введите нижний предел интегрирования '); readln(a);
write('Введите верхний предел интегрирования '); readln(b);
write('Введите количество отрезков '); readln(n);
h:=(b-a)/n; s:=0; xb:=a;
for i:=0 to n-1 do
begin x:=xb+i*h; s:=s+f(x)*h; end;
writeln('Интеграл равен ',s:12:10); readln;
end.

[Vanta11a]

Язык для Паскаля и Delphi один и тот же, и в дельфях программа нормально работает.

[Stilet]

и в дельфях программа нормально работает.

Нет. Не нормально. Само тело - да но оформление должно претерпеть изменений:

program levii;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var i,n:integer; a,b,h,x,xb,s:real;
function f(x:real):real;
begin f:=(1/x)*sin(3.14*x/2); end;
begin
write('Введите нижний предел интегрирования '); readln(a);
write('Введите верхний предел интегрирования '); readln(b);
write('Введите количество отрезков '); readln(n);
h:=(b-a)/n; s:=0; xb:=a;
for i:=0 to n-1 do
begin x:=xb+i*h; s:=s+f(x)*h; end;
writeln('Интеграл равен ',s:12:10); readln;
end.

Vanta11a

Найди ыдцать отличий.