fork download

program pr4;
var p,a,x:real;
i,n:integer;
 begin
a:=0;
repeat
writeln('enter a-(a < 1)');
readln(a);
if a>=1 then 
begin
writeln('a has to be less than 1!!! enter correct value');
until (a=1);
p:=1;
n:=60;
for i:=2 to n do
begin
x:=sqrt((i*i*i)+2);
p:=p*a*sin(x)*ln(x);
end;
writeln('result is ',p:5:2);
readln;
end.
 

Free Pascal Compiler version 2.2.0 [2009/11/16] for i386
Copyright (c) 1993-2007 by Florian Klaempfl
Target OS: Linux for i386
Compiling prog.pas
prog.pas(12,1) Fatal: Syntax error, ";" expected but "UNTIL" found
Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)

Standard output is empty