написать в pascal ABC имя Кристина Пример работы ( имя Влад )
uses graphABC;
begin
moveto(100,100);
LineTo(100,300);
LineTo(150,300);
arc(150,250,50,270,90);
line(100,200,150,200);
arc(130,150,50,270,90);
line(100,100,100,130);
line(100,100,130,100);
moveto(200,300);
lineto(250,100);
lineTo(300,300);
moveto(320,300);
lineto(370,100);
lineTo(420,300);
line(334,250,409,250);
moveto(430,300);
lineto(430,250);
lineto(580,250);
lineto(580,300);
moveto(460,250);
lineto(460,100);
lineto(540,100);
lineto(540,250);
end.

type cl = class

  a: integer;

  constructor create(b: integer);

  procedure setval(b: integer);

  function getval: integer;

  procedure sq;

end;

constructor cl.create(b: integer);

begin

  a : = b;

end;

procedure cl.setval(b: integer);

begin

  a : = b;

end;

function cl.getval: integer;

begin

  getval : = a;

end;

procedure cl.sq;

begin

  if a < 0 then

    writeln('a ^ 2 = ', a * a)

  else

    writeln('error');

end;

var

  obj: cl;

  a : integer;

begin

  write('a = ');

  readln(a);

  obj : = cl.create(a);

  obj.sq;

  readln;

  obj.destroy;

end.

1₂ = 1₁₀

10₂ =2₁₀

11₂ = 3₁₀

100₂ = 4₁₀

101₂ = 5₁₀

110₂ = 6₁₀

111₂ = 7₁₀

1000₂ = 8₁₀

1001₂ = 9₁₀

1010₂ = 10₁₀

1011₂ = 11₁₀

1100₂ = 12₁₀

1101₂ = 13₁₀

1110₂ = 14₁₀

1111₂ = 15₁₀

это таблица для перевода координат точек в 10-ную систему

Объяснение:

1₂ = 1*2⁰ = 1₁₀

10₂ = 0*2⁰ + 1*2¹ = 2₁₀

11₂ = 1*2⁰ + 1*2¹ = 3₁₀

100₂ = 0*2⁰ + 0*2¹ + 1*2² = 4₁₀

101₂ = 1*2⁰ + 0*2¹ + 1*2² = 5₁₀

110₂ = 0*2⁰ + 1*2¹ + 1*2² = 6₁₀

111₂ = 1*2⁰ + 1*2¹ + 1*2² = 7₁₀

1000₂ = 0*2⁰ + 0*2¹ + 0*2² + 1*2³ = 8₁₀

1001₂ = 1*2⁰ + 0*2¹ + 0*2² + 1*2³ = 9₁₀

1010₂ = 0*2⁰ + 1*2¹ + 0*2² + 1*2³ = 10₁₀

1011₂ = 1*2⁰ + 1*2¹ + 0*2² + 1*2³ = 11₁₀

1100₂ = 0*2⁰ + 0*2¹ + 1*2² + 1*2³ = 12₁₀

1101₂ = 1*2⁰ + 0*2¹ + 1*2² + 1*2³ = 13₁₀

1110₂ = 0*2⁰ + 1*2¹ + 1*2² + 1*2³ = 14₁₀

1111₂ = 1*2⁰ + 1*2¹ + 1*2² + 1*2³ = 15₁₀