Subiectul al II-lea, 2.

Variabila c este de tip char, iar celelalte variabile sunt de tip întreg. Scrieți valoarea variabilei nr în urma executării secvenței alăturate, știind că se citesc de la tastatură literele: r e a l i z a r e (6p.)

nr:=0; for i:=9 downto 1 do begin read(c); if (c='e') or (c='i') then nr:=nr+ord(c)-ord('a') end;