1.) Дано шестизначное число. Вывести число, полученное при удалении чисел, занимающих нечетные места (например, при вводе 123456 на экран выведется число 246);

2.) Даны три числа, проверить делится ли нацело на 5 хотя бы одно число. Вывести на экран сообщение о том, что одно число делится или все числа не делятся.

Так все таки в первой задаче на четном или нечетном месте? У вас с 246 получается, что на четном. Если надо нечетное, замените if i mod 2<>0 на if i mod 2=0

1)

 uses crt;
var n,k: longint;
    i,j,m: integer;
begin
clrscr;
      repeat
            write ('vvedite 6-znachnoe chislo: '); readln (n);
      until (n>=100000) and (n<=999999);
      for i:=6 downto 1 do begin
          k:=1;
          for j:=1 to i-1 do k:=k*10;
          if i mod 2<>0 then m:=m*10+n div k;
          n:=n mod k; end;
      writeln (m);
readkey;
end.

2)

uses crt;
var a,b,c: integer;
    t: boolean;
begin
clrscr;
       write('vvedite 1 chislo: '); readln (a);
       write('vvedite 2 chislo: '); readln (b);
       write('vvedite 3 chislo: '); readln ©;
       if (a mod 5=0) or (b mod 5=0) or (c mod 5=0) then t:=true;
       if t then writeln ('delitsa')
          else writeln ('ne delitsa');
readkey;
end.