53 lines
1.6 KiB
Plaintext
53 lines
1.6 KiB
Plaintext
|
тип број = бајт (4)
|
|||
|
|
тип слово = бајт (1)
|
|||
|
|
|
|||
|
|
тип логика (
|
|||
|
|
лаж,
|
|||
|
|
истина)
|
|||
|
|
|
|||
|
|
тип системски_позив (
|
|||
|
|
линукс_системски_позив_читај = 0,
|
|||
|
|
линукс_системски_позив_пиши = 1,
|
|||
|
|
линукс_системски_позив_отвори = 2,
|
|||
|
|
линукс_системски_позив_затвори = 3,
|
|||
|
|
линукс_системски_позив_изађи = 60)
|
|||
|
|
|
|||
|
|
тип фајл_описивач (
|
|||
|
|
класични_улаз,
|
|||
|
|
класични_излаз)
|
|||
|
|
|
|||
|
|
процедура дужина_текста (текст) врати број је
|
|||
|
|
дужина је број = 0
|
|||
|
|
док текст (дужина) није 0
|
|||
|
|
ради
|
|||
|
|
дужина ++
|
|||
|
|
крај
|
|||
|
|
врати (дужина)
|
|||
|
|
крај
|
|||
|
|
|
|||
|
|
процедура штампај (текст) је
|
|||
|
|
системски_код (линукс_системски_позив_пиши, класични_излаз, текст, дужина_текста (текст))
|
|||
|
|
крај
|
|||
|
|
|
|||
|
|
здраво () штампај ("Здраво!")
|
|||
|
|
видимо_се () штампај ("Видимо се!")
|
|||
|
|
|
|||
|
|
глобална_константа = 666
|
|||
|
|
|
|||
|
|
процедура главна је
|
|||
|
|
здраво ()
|
|||
|
|
док а је 1 ... 17 је
|
|||
|
|
ако а % 3 је 0 или а % 5 је 0 онда
|
|||
|
|
штампај ("физ + баз")
|
|||
|
|
иначе ако а % 3 је 0 онда
|
|||
|
|
штампај ("физ")
|
|||
|
|
иначе ако а % 5 је 0 онда
|
|||
|
|
штампај ("баз")
|
|||
|
|
иначе
|
|||
|
|
штампај ("<->")
|
|||
|
|
штампај ("\n")
|
|||
|
|
крај
|
|||
|
|
видимо_се
|
|||
|
|
врати 60
|
|||
|
|
крај
|