Здравствуйте решить задачу. Напишите программу, которая на вход получает координаты двух клеток шахматной доски и выводит соощение о том, являются ли эти клетки одного цвета.
Формат ввода:
c2
e4
Формат вывода:
Клетки одинакового цвета
Основное решение есть, но как преобразовать буквы в числа
d= int(input())
a= int(input())
b= int(input())
c= int(input())
if (a+b+c+d) % 2 == 0:
print('клетки одинакового цвета')

Const
    n = 100;

var
    i, neg_k, pos_k, pos_s, neg_p: integer;
    a: array[1..n] of integer;

begin
    for i := 1 to n do
    begin
        a[i] := random(10 + 50) - 10;
        write(a[i], ' ');
    end;
    writeln();
    
    neg_p := 1;
    for i := 1 to n do
        if a[i] > 0 then begin
            pos_k := pos_k + 1;
            pos_s := pos_s + a[i];
        end
        else if a[i] < 0 then begin
            neg_k := neg_k + 1;
            neg_p := neg_p * a[i];
        end;
    writeln('Positive: ', pos_k, ' ', pos_s);
    writeln('Negative: ', neg_k, ' ', neg_p);
end.

Сделано на паскале, тот же делфи, но возможно придется разтосовать кусками, в зависимости от тго что именно надо получить в конце

const
    n = 25;

var
    i, imax: integer;
    s, s7: real;
    a, b: array[1..n] of real;

begin
    imax := 1;
    for i := 1 to n do
    begin
        a[i] := random(10 + 50) - 10;
        write(a[i], ' ');
        
        s := s + a[i];
        if (a[i] > 0) and (round(a[i]) mod 7 = 0) then
            s7 := s7 + a[i];
        s := s + a[i];
        if a[imax] < a[i] then imax := i;
    end;
    writeln();
    
    a[imax] := s / n;
    
    for i := 1 to n do
        write(a[i], ' ');
    writeln();
    
    writeln(s7);
end.