pascalabcnet/InstallerSamples/!Tutorial/01_First/Random2.pas

// Бросание кубиков

begin
  var (k1,k2) := Random2(1,6);
  Writeln($'Очки на кубиках: {k1} {k2}');
  Writeln($'Сумма очков: {k1+k2}');
end.
-												fix #1419

											
										
										
											2018-10-26 20:12:42 +03:00
+								// Бросание кубиков
-												initial commit

											
										
										
											2015-05-14 22:35:07 +03:00
 								begin
-												fix #1419

											
										
										
											2018-10-26 20:12:42 +03:00
+								  var (k1,k2) := Random2(1,6);
 								  Writeln($'Очки на кубиках: {k1} {k2}');
 								  Writeln($'Сумма очков: {k1+k2}');
-												initial commit

											
										
										
											2015-05-14 22:35:07 +03:00
+								end.