Степень вершины B — 16; степень вершины D — 4 и степень вершины P — 10. Можно ли данный граф начертить «одним росчерком»? ​

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 uses crt; var a,b,c,d: real;   procedure Plo (s: string; x,y,z: real); var sq: real; begin if ((y+z-x)>0) and ((x+z-y)>0) and ((x+y-z)>0) then    begin    sq:=0.25*(sqrt((x+y+z)*(y+z-x)*(x+z-y)*(x+y-z)));    writeln('Площадь треугольника со сторонами ',s,'=',sq:0:3);    end else writeln('Треугольник со сторонами ',s,' не существует'); end;   begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); write('d='); readln(d); Plo ('a,b,c',a,b,c); Plo ('a,b,d',a,b,d); Plo ('a,c,d',a,c,d); Plo ('b,c,d',b,c,d); end

1)var a:integer;
begin
writeln('Введите число');
readln(a);
if (a mod 2=0) then write('Чётное ')
else write('Нечётное ');
if (a div 100>=1)then write('трёхзначное число')
else if (a div 10>=1)then write('двузначное число')
else writeln('однозначное число');
end.
2)var a,b,c:real;
begin
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
writeln('Введите 3 число');
readln(c);
if (a<b)and (b<c) then 
begin
a:=2*a;
b:=2*b;
c:=2*c;end
else 
begin
a:=(-1)*a;
b:=(-1)*b;
c:=(-1)*c;
end;
writeln(a);
writeln(b);
writeln(c);
end.
3)var a,b,c:integer;
begin
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
writeln('Введите 3 число');
readln(c);
if a=b then writeln('3')
else if b=c then writeln('1')
else writeln('2');
end.