Αλγόριθμος ΒΕΛΑΚΙΑ
Επανάλαβε
Διάβασε onoma
ypo<--368
pli_v<--0
peni<--0
Όσο ypo<>0 Επανάλαβε
Επανάλαβε
Διάβασε voli
Μέχρις_ότου voli>0 και voli<=50
Αν voli<=ypo
ypo<--ypo-voli
Αν voli=50
peni<--peni+1
Τέλος_αν
pli_v<--pli_v+1
Τέλος_επανάληψης
Εμφάνισε onoma,pli_v,peni
Αν win_v = 0 ή win_v > pli_v ή (win_v = v και peni > win_peni)
win_onoma<--onoma
win_v<--pli_v
win_peni<--peni
Τέλος_αν
Εμφάνισε "Νέος παίκτης;"
Διάβασε epilogi
Μέχρις_ότου epilogi=OXI
Εμφάνισε "Νικιτής:",win_onoma,win_v,win_peni
Τέλος_ΒΕΛΑΚΙΑ