! ===========================================
! Να γίνει πρόγραμμα που να ζητάει δύο
! ακέραιους αριθμούς και να τους
! πολλαπλασιάζει αλά ρωσικά.
! ===========================================


ΠΡΟΓΡΑΜΜΑ Πολλαπλασιασμός_αλά_ρωσικά

ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Μ1, Μ2, Ρ

ΑΡΧΗ

  ΓΡΑΨΕ 'Δώσε τον πρώτο αριθμό:'
  ΔΙΑΒΑΣΕ Μ1
  ΓΡΑΨΕ 'Δώσε το δεύτερο αριθμό:'
  ΔΙΑΒΑΣΕ Μ2

  Ρ <-- 0
  ΟΣΟ Μ2>0 ΕΠΑΝΑΛΑΒΕ
    ΑΝ Μ2 MOD 2 = 1 ΤΟΤΕ
      Ρ <-- Ρ+Μ1
    ΤΕΛΟΣ_ΑΝ
    Μ1 <-- Μ1*2
    Μ2 <-- Μ2 DIV 2
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΡΑΨΕ 'Το γινόμενό τους είναι: ', Ρ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Πολλαπλασιασμός_αλά_ρωσικά