как на паскале записать ?

[sektor2011]

#include "stdafx.h"
#include <iostream>
using namespace std;
bool simple(int x)

{
	for (int i=2; i<=(x/2);i++)
	{
		if (!(x%i))
		{
			return false;
		}
	}
	return true;
}
int main()
{
	int a,b;
	cout<<"Enter a->" 
	cin>>a;
	cout<<"Enter b->" 
	cin>>b;
	cout<<endl<<"Result ->";
	for ( int i=a; i<=b;i++)
	{
		if (simple(i) && i>=2)
		{
			cout<<i<<" ";
		}
	}

	system("pause");
	return 0;
}

________
Название темы не соответствует правилам форума (не отражает суть задачи!)
_____
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
_____
Кросспостинг (создание одинаковых тем/сообщений) запрещён правилами форума.
_____

Модератор.

[Летучий_СкилетиК]

uses crt;
var a,b,i:integer;
function simple(x :integer):boolean;
var i:byte;
g:boolean;
begin
    g:=false;
    for i:=2 to x div 2 do
    if x mod 2 <>0 then begin g:=true;break;end;
    if g then simple:=false else simple:=true;
end;
begin
writeln('Input a');
readln(a);
writeln('Input b');
readln(b);
writeln;
write('Result->');
for i:=a to b do
    if (simple(i))and(i>=2)then write(i,' ');
readln;
end.