diff --git a/simple_examples/countries.pas b/simple_examples/countries.pas
new file mode 100644
index 0000000..0bf2b61
--- /dev/null
+++ b/simple_examples/countries.pas
@@ -0,0 +1,39 @@
+program countries;
+
+{$mode objfpc}{$H+}
+
+uses strutils;
+
+type
+  TCountry = record
+    Name: string;
+    Area: LongInt;
+  end;
+
+const
+  Belgium: TCountry = (Name: 'Belgium'; Area: 30513);
+  Austria: TCountry = (Name: 'Austria'; Area: 83851);
+  finland: TCountry = (Name: 'Finland'; Area: 337032);
+  Germany: TCountry = (Name: 'Germany'; Area: 356734);
+
+procedure DisplayInfo(aCountry: TCountry);
+var barLength: integer;
+begin
+  with aCountry do
+    begin
+      barLength := Area div 30000;
+      WriteLn(Name:8, Area:7, ' ', DupeString('*', barLength));
+    end;
+end;
+
+begin
+  WriteLn(' Country   Area Relative area');
+  WriteLn(' ------- ------ -------------');
+  DisplayInfo(Belgium);
+  DisplayInfo(Austria);
+  DisplayInfo(finland);
+  DisplayInfo(Germany);
+  {$IFDEF WINDOWS}
+  ReadLn;
+  {$ENDIF}
+end.
\ No newline at end of file
diff --git a/simple_examples/firstproject.pas b/simple_examples/firstproject.pas
index 2e08a51..a903a90 100644
--- a/simple_examples/firstproject.pas
+++ b/simple_examples/firstproject.pas
@@ -2,13 +2,6 @@ program firstproject;
 
 {$mode objfpc}{$H+}
 
-uses
-	{$IFDEF UNIX}{$IFDEF UseCThreads}
-	cthreads,
-	{$ENDIF}{$ENDIF}
-	Classes
-	{ you can add units after this };
-
 begin
   writeln('A Free Pascal progam');
   {$IFDEF WINDOWS}