program caso;
uses crt;
var b:integer;
begin
clrscr;
randomize;
b:=1+random(6);
writeln('è uscito ',b);
readln;
end.
@(*Marco Ianna Liceo Scientifico Albert Einstein Milano*)@