Вывести все двухзначные положительнык числа, кратные 5

Program del5; var x : integer; begin сlrscr;   x: =10   while x< 100 do   begin       writeln(x);       x: =x+5;   end end.

Begin var x : = 10; while x < 100 do begin writeln(x: 3); x += 5; end; end.

Program fofgogjoj;   var    arr: array[1..1000] of byte;     max_num, min_num: byte;     i: byte;     n,p: integer;   begin    randomize;   wriiteln('введите число n'); readln(n);     for i : = 1 to n do begin        arr[i] : = random(100);           write (arr[i]: 3);     end;             max_num : = arr[1];       for i : = 2 to n do          if arr[i] > max_num then begin                        max_num : = arr[i];         end;       writeln;     writeln ('max = ',max_num);               min_num : = arr[1];       for i : = 2 to n do        if arr[i] < min_num then begin                        min_num : = arr[i];         end;         writeln;     writeln ('min = ',min_num);           p: =max_num*min_num;     writeln('произведение равно: ',p);   end.

Uses crt; label goback; var a,b,c,d,e,f: integer; begin goback: write('введите число: '); read(a); if (a< 1000) or (a> 9999) then      begin       writeln('введите четырехзначное число.');       goto goback; end; b: =a div 1000; c: =a div 100 mod 10; d: =a div 10 mod 10; if (b=c) and (c=d) then  begin    writeln('первые 3 цифры равны.');   end; if (b=c) and (c> d) then  begin    writeln(d,' - наименьшая цифра из первых 3 цифр.'); end; if (d=b) and (b> c) then  begin    writeln(c,' - наименьшая цифра из первых 3 цифр.'); end; if (c=d) and (d> b) then  begin    writeln(b,' - наименьшая цифра из первых 3 цифр.'); end; if (b> c) and (c> d) and (b> d) then  begin    writeln(d,' - наименьшая цифра из первых 3 цифр.'); end; if (c> d) and (d> b) and (c> b) then  begin    writeln(b,' - наименьшая цифра из первых 3 цифр.'); end; if (b> d) and (d> c) and (b> c) then  begin    writeln(c,' - наименьшая цифра из первых 3 цифр.'); end; if (b mod 2 = 0) then  begin    writeln('первая цифра четная');   end; if (c mod 2 = 0) then  begin    writeln('вторая цифра четная'); end; if (b mod 2 = 0) and (c mod 2 = 0) then  begin    writeln('и первая и вторая цифра четная');   end; if (b mod 2 = 1) and (c mod 2 = 1) then  begin    writeln('и первая и вторая цифра не четная'); end; end.