fork download

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k:Integer;
sonuc:Integer;
begin
sonuc:=0;
for i:=0 to 5 do
begin
inc(sonuc);
for j:=0 to 5 do
begin
inc(sonuc);
for k:=0 to 5 do
begin
inc(sonuc);
end;
end;
end;
Form1.Caption:=IntToStr(sonuc);
end;

prog.d(1): semicolon expected, not '.'
prog.d(1): found ':' when expecting ')'
prog.d(1): semicolon expected, not 'TObject'
prog.d(1): no identifier for declarator TObject
prog.d(1): semicolon expected, not ')'
prog.d(1): Declaration expected, not ')'
prog.d(3): semicolon expected, not ':'
prog.d(3): Declaration expected, not ':'
prog.d(4): no identifier for declarator sonuc
prog.d(4): semicolon expected, not ':'
prog.d(4): Declaration expected, not ':'
prog.d(6): semicolon expected, not ':'
prog.d(6): Declaration expected, not ':'
prog.d(7): Declaration expected, not 'for'
prog.d(10): Declaration expected, not 'for'
prog.d(13): Declaration expected, not 'for'
prog.d(16): no identifier for declarator end
prog.d(17): no identifier for declarator end
prog.d(18): no identifier for declarator end
prog.d(19): no identifier for declarator Form1.Caption
prog.d(19): semicolon expected, not ':'

Standard output is empty