Question

Sarcina 9, o rezolvati in caiet, faceti screen si trimiteti aici va rog. Multumesc.

Answer 1

program Hello;

var valoare:integer;

begin

 writeln ('Dati valoarea:');

 readln(valoare);

 case valoare of

1: writeln('un ban');

5: writeln('cinci bani');

10: writeln('zece bani');

25: writeln('douazeci si cinci de bani');

50: writeln('cincizeci de bani!');

else writeln('valoare inadmisibila');

end

end.