Решить в turbo pascal. вывести на экран все двухзначные числа в которых старшая цифра отличается от младшей не больше чем на 1(с оператора for

Var   i : integer; begin   for i : = 10 to 99 do     if (i div 10 - i mod 10 = 1) or (i mod 10 - i div 10 = 1) then  writeln(i);     readln; end.

Program easybreazy; var j: integer; begin for j: =10 to 99 do if j mod 10= j div 10+1 then writeln(j); end.

program massiv;

var b: array[1..100]of integer;

r,n,m,i,p,k,a: integer;

begin

randomize; writeln ('a='); readln(a);

writeln('n='); readln(n);

for i: =1 to n do begin

b[i]: =random(50)-25;

writeln('a[',i,']=');

if b[i]> 0 then begin r: =r+b[i]; p: =r*2;

if b[i]> a then k: =k+1;

if ((b[i]< a)and(b[i]> 0)) then m: =m+1;

end; end; writeln('удвоенная сумма положительных элементов ',p);

writeln('kол-во элементов массива , значения которых больше заданного числа',k);

writeln('количество положительных элементов не превсходящих заданного числа',m);

end.

program zamena;

uses crt;

var c: char;

begin

      clrscr;  

      write('введите символ: ');

      readln(c);    

 

      case c of

          'a','a', 'e','e', 'i','i' 'o','o' 'u','u',' y','y': writeln('! ');

          'b','b',c,'c','d','d','f','f','g','g','h','h','j','j',k,'k','l','l','m','m', 'n','n' 'p','p','q','q','r','r','s','s' ,'t','t','v','v','w','w' ,'x','x', 'z','z':   writeln('? ');

      '0'..'9': writeln(': ');    

              else writeln('*');

 

      end;  

 

  readkey;

  end.