Мешок В-это мешок всех целых двухзначных чисел: от 10 до 99. Нарисуй два таких мешка А и Б, в каждом из которых есть непустая цепочка цифр и таких что А+Б=В

Uses GraphABC;

var a, b, c:array[10 ... 99] of integer;

ast, bst, cst:string;

i:integer;

begin

ast:='A:';

bst:='Б:';

cst:='В:';

for i:=10 to 99 do

begin

c[i]:=i;

a[i]:=c[i]-i+random (50) ;

b[i]:=c[i]-a[i];

ast:=ast+' '+inttostr (a[i]) ;

bst:=bst+' '+inttostr (b[i]) ;

cst:=cst+' '+inttostr (c[i]) ;

end;

setpencolor (clRed) ;

line (0,0,150,0) ;

line (150,0,75,50) ;

line (75,50,0,0) ;

rectangle (0,50,150,300) ;

DrawTextCentered (0,50,150,300, ast) ;

setpencolor (clYellow) ;

line (150,0,300,0) ;

line (300,0,225,50) ;

line (225,50,150,0) ;

rectangle (150,50,300,300) ;

DrawTextCentered (150,50,300,300, bst) ;

setpencolor (clGreen) ;

line (300,0,450,0) ;

line (450,0,375,50) ;

line (375,50,300,0) ;

rectangle (300,50,450,300) ;

DrawTextCentered (300,50,450,300, cst) ;

end.