Мешок В-это мешок всех целых двухзначных чисел: от 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.