С помощью оператора Паскаля FOR
Вывести на экран:
1) все четные числа из диапазона от A до B, кратные трем (A 2) все двузначные числа, в которых старшая цифра отличается от младшей не больше чем на 1;
3) все трехзначные числа, в которых хотя бы две цифры повторяются.

1)Var i,a,b:longint;Begin    read(a,b);    for i:=a to b do    if (i mod 3=0) then write(i,' ');    writeln;End.2)Var i:longint;Begin    for i:=10 to 99 do    if (abs(i mod 10 - i div 10)<=1) then write(i,' ');    writeln;End.3)Var i,s,f,t:longint;Begin    for i:=100 to 999 do    begin         f:=i div 100;         s:=i div 10 mod 10;         t:=i mod 10;         if (f=s) or (f=t) or (s=t) then write(i,' ');    end;    writeln;End.