найти ошибку в коде. Пишет что что-то не так с ":" после if

Python 3

c1 = int(input())

r1 = int(input())

c2 = int(input())

r2 = int(input(()

if c1==c2 or r1==c2:

print('YES')

else :

print('NO')

Первая программа:

Var S,A:integer;
Begin
S:=0;
For A:= 5 to 45 do
    if A mod 4 = 0 then S:=S+A;
WriteLn('S = ',S);
End.

Результат работы программы:
S = 260

Вторая программа:

Var A,S:integer;
Begin
S:=0;
For A:= 79 to 205 do
    if A mod 2 <> 0 then S:=S+A;
WriteLn('S = ',S);
End.

Результат работы программы:
S = 9088

Третья программа:

Var
   x:byte;
Begin
WriteLn('f(x) = x^2');
For x:= 1 to 20 do
    WriteLn('f(',x/2:3,') = ',Sqr(x/2))
End.

Результат работы программы:
f(x) = x^2
f(0.5) = 0.25
f(  1) = 1
f(1.5) = 2.25
f(  2) = 4
f(2.5) = 6.25
f(  3) = 9
f(3.5) = 12.25
f(  4) = 16
f(4.5) = 20.25
f(  5) = 25
f(5.5) = 30.25
f(  6) = 36
f(6.5) = 42.25
f(  7) = 49
f(7.5) = 56.25
f(  8) = 64
f(8.5) = 72.25
f(  9) = 81
f(9.5) = 90.25
f( 10) = 100

1. Современный вариант
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  ReadlnString.GroupBy(c->c).Select(x->(x.Key,x.Count)).OrderBy(x->x[0])
    .Select(x->Format('"{0}" - {1}',x[0],x[1])).Println(NewLine)
end.

Пример
10101110
"0" - 3
"1" - 5

2. Школьный вариант в стиле Pascal ABC, Free Pascal

var
  s:string;
  i,k0,k1:integer;
begin
  Readln(s);
  k0:=0; k1:=0;
  for i:=1 to Length(s) do
    if s[i]='0' then Inc(k0) else Inc(k1);
  Writeln('"0" - ',k0);
  Writeln('"1" - ',k1)
end.

Вывод результатов точно такой же, как и выше.