program voto(input,output);
var x:integer;
procedure acqui;
	begin
		writeln('inserisci la valutazione(da 0 a 10)');
		readln(x);
	end;
procedure calcolo;
	begin
		case x of
		0..4: writeln('il voto e scarso');
		5   : writeln('il voto e mediocre');
		6   : writeln('il voto e sufficiente');
		7   : writeln('il voto e discreto');
		8   : writeln('il voto e buono');
		otherwise begin		
			    writeln('nessun voto');		
			 end;
		end;
	end;

{main program}
begin
	acqui;
	calcolo;
end.