+cls\r
+screen 9\r
+screen 0\r
+color 0,15\r
+cls\r
+locate 2,2\r
+input "Jaka je hmotnost telesa (g) " ;hmotnost\r
+cls\r
+locate 2,2\r
+input "Jaky je objem telesa (cm3 - ml) " ;objem\r
+\r
+screen 9\r
+cls\r
+locate 20,20\r
+print "POCITAM!"\r
+locate 2,2\r
+print "TENTO PROGRAM NAPROGRMOVAL TOMAS MUDRUNKA."\r
+delay 2\r
+screen 0\r
+hustota=hmotnost/objem\r
+cls\r
+\r
+print "hmotnost...."hmotnost " g"\r
+print "objem......."objem " cm3"\r
+print "hustota.....? g/cm3"\r
+print "────────────────────────────────────────────────────"\r
+print "hustota = m:V"\r
+print "hustota = "hmotnost" g:"objem " cm3"\r
+print "hustota = "hustota" g/cm3"\r
+print ""\r
+print "Hustota daneho telesa je "hustota" g/cm3."\r
+print ""\r
+print ""\r
+print ""\r
+print ""\r
+print ""\r
+print ""\r
+print ""\r
+print ""\r
+print "TENTO PROGRAM NAPSAL.... TOMAS MUDRUNKA"\r
+PRINT "SPOLECNOST.............. X-TOM"\r
+input "Mas uz tabulku opsanou " ;konec$\r
+\r
+\r
+end\1a
\ No newline at end of file