великий и ужасный ПАСКАЛЬ

[werus]

помогите перевести ЭТО на паскаль...

declare function isprost: (n as integer)
cls
dim n as integer
dim i as integer
input "enter n:";n
for i=1 to n 
if isprost(i)=1 then
print i
end if
next i 
end

function is prost(n as integer)
dim i as integer
if n =1 then isprost=1
exit function end if
for i=2 to sqr(n)
if n mod i=0
exit function
end if
next i
isprost=1
end funcion

вот...

[danekne]

dim n as integer
dim i as integer

Не уверен, что получится

[werus]

и если поможет вот условие...определить все числа не превосходящие заданного N (распознавание чисел оформить в виде подпрограммы)

[DM_bite]

определить все числа не превосходящие заданного N (распознавание чисел оформить в виде подпрограммы)

function Nmbr(a,n: integer): boolean;
begin
if a<n then Nmbr:= true
else Nmbr:= false;
end;

var b,x: integer;
begin
ReadLn(b, x);
if Nmbr(b,x) then WriteLn(b,'<',x)
else WriteLn(b,'>',x);
ReadLn;
end.

[werus]

DM_bite конечно спасибо но ты кажется не понял условия .. твоя программа считает какое из чисел больше