Program random2;
var d1,d2,d3:integer;
begin
randomize;
d1:=trunc(random*6)+1;
d2:=trunc(random*6)+1;
d3:=trunc(random*6)+1;
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
writeln('The Numbers Are:',d1:4,d2:4,d3:4);
writeln('The SUM Is:',d1+d2+d3);
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
end.