1. Переведите в двоичную, десятичную, шестнадцатеричную: А) 62 (8)
Б) 242 (8)
No2. Переведите в двоичную:
А) 203 (10)
Б) 63 (10)​

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.

1) var a,b:integer;
begin
readln(a,b);
writeln('Сумма единиц: ',a mod 10+b mod 10);
writeln('Сумма десятков: ',(a div 10) mod 10+(b div 10) mod 10);
end.

2)var a:integer;
begin
readln(a);
if a mod 2=0 then writeln('Делится на 2') else writeln('Не делится на 2');
if a mod 3=0 then writeln('Делится на 3') else writeln('Не делится на 3');
if a mod 5=0 then writeln('Делится на 5') else writeln('Не делится на 5');
end.

3)var a,b,c:integer;
begin
readln(a);
c:=a;
while a>0 do begin
  b:=10*b+a mod 10;
  a:=a div 10;
end;
writeln(c-b);
end.