Question

ПОЖАЛУЙСТА!!!Составьте программу паскаль по этой схеме!!!20 баллов!!!!

Answer 1

program test;

var
a, b, k : integer;

begin
a := random(10) + 1;
b := random(10) + 1;

if a > b then
k := a * b
else
k := a + b;

writeln(a, ', ', b, ', ', k);
end.

Answer 2

На PascalABC.NET

begin
var (a,b):=(random(10)+1,random(10)+1);
var k: integer;
if a>b then k:=a*b
else k:=a+b;
writeln(a,b,k);
end.