Записать решение задач в Pascal Abc:1. Найти есть ли в составе

Задачка 1. 
var
  a,b,c,x: integer;
begin
  readln(x);
  a:= x mod 10;
  x:= x div 10;
  b:= x mod 10;
  x:= x div 10;
  c:= x;
  if (a=b) or (a=c) or (b=c) then writeln('Есть') else writeln('Нет');
end.

Задача 2.
var 
  a,b: integer;
begin 
  readln(a,b); 
  If ((agt;0) and (bgt;0)) or ((alt;=0) and (blt;=0)) then writeln('да') else writeln('нет');
end.

Задачка 3.
var
  x: real;
begin
  readln(x);
  if (x=lt;5) and (xgt;=1) then writeln('да') else writeln('нет');
end.

Задачка 4. 
Справка:
Счастливым считается приобретенный в публичном транспорте билет, в шестизначном номере которого сумма первых трёх цифр совпадает с суммой трёх последних.
var 
  x: integer;
begin
  readln(x); 
  for i:=1 to 3 do begin   
    d:= x mod 10;   
    x:= x div 10;   
    s1:= s1+d 
  end; 
  for i:=1 to 3 do begin   
    d:= x mod 10;   
    x:= x div 10;   
    s2:= s2+d 
  end; 
  if s1=s2 then writeln('да') else writeln('нет')
end.

Задачка 5.
Справка:
год является високосным в 2-ух случаях: либо он кратен 4, но при этом не кратен 100, или кратен 400. 
var 
  x: integer;
begin 
  readln(x); 
  If ((x mod 4=0) and (x mod 100lt;gt;0)) or (x mod 400=0) then
  writeln('да') else writeln('нет')
end.