πρόγραμμα δρ3 μεταβλητές

πρόγραμμα δρ3
μεταβλητές
  πραγματικες:ΧΔ,ΧΡ

αρχή

  γραψε'δωσε χρονο τηλεφωνηματων'
  Διαβασε ΧΔ 
  Αν ΧΔ<=500    τοτε
    ΧΡ <-- ΧΔ*0.004
  Αλλιως_ΑΝ  ΧΔ<=800 τοτε
    ΧΡ <-- 500*0.004+(ΧΔ-500)*0.002
  Αλλιως
    ΧΡ <-- 500*0.004+300*0.002+(ΧΔ-800)*0.001
  Τελος_ΑΝ
  γράψε ΧΡ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ δρ3.