fork download

copy

 
uses crt;
 
var
 
 gelas_kaca, gelas_plastik, i : integer ;
 
begin
 
 clrscr;
 
 gelas_kaca:=1; // Jumlah Gelas Kaca (untuk no 40)
 
 gelas_plastic:=2;
 
 for i:=1 to 10 do
 
 begin
 
  gelas_plastik:=gelas_kaca*2; // Fungsi 1 (untuk soal no 39)
 
  gelas_kaca:=gelasplastik+1;
 
 end;
 
 writeln(gelas_kaca + gelas_plastik);
 
 readln();
 
end.

Free Pascal Compiler version 2.6.4+dfsg-6 [2015/05/31] for i386
Copyright (c) 1993-2014 by Florian Klaempfl and others
Target OS: Linux for i386
Compiling prog.pas
prog.pas(14,15) Error: Identifier not found "gelas_plastic"
prog.pas(22,27) Error: Identifier not found "gelasplastik"
prog.pas(30,4) Fatal: There were 2 errors compiling module, stopping
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