проверьте код и найдите ошибки

[Frank63]

Задача: Подсчитать количество натуральных чисел, принадлежащих интервалу [a,b), в которых младшая цифра равна заданной, старшая цифра четная

program qq;
procedure vvod(var a,b,n:integer);
begin
  writeln('Введите a');
  readln(a);
  writeln('Введите b');
  readln(b);
  writeln('Введите n');
  readln(n);
end;
procedure algoritm(a,b,n:integer; var k:integer);
var i,x,y,z:integer;
begin
  k:=0;
  for i:=a to b-1 do begin
    x:=i;
    z:=x mod 10;
    while (x>0) and (x div 10>0) do begin
      y:=x mod 10;
      x:=x div 10;
    end;
    if (y mod 2=0) and (z=n) then begin
      k:=k+1;
      writeln('Число: ',i:3);
    end;
  end;
end;
procedure vyvod(k:integer);
begin
  writeln('Количество чисел: ',k);
end;
var 
a,b,n,k: integer;
begin
  vvod(a,b,n);
  algoritm(a,b,n,k);
  vyvod(k);
end.

[Frank63]

Второй вариант программы (тоже не работает)
Найдите, пожалуйста, ошибки

procedure Vvod(var a,b,n:integer);
begin
  repeat
    writeln('Введите число a >');
    readln(a);
    writeln('Введите число b >');
    readln(b);
    writeln('Введите число n >');
    readln(n);
    if ((a<0) or (a>b)) then
      writeln('Числа a и b должны быть натуральными, причем a<b')
  until (a>0) and (b>a);
end;
function Resh(x:integer; var y,z:integer):boolean;
var n:byte;
begin
  z:=x mod 10;
  while (x>0) and (x div 10>0) do begin
    y:=x mod 10;
    x:=x div 10;
  end;
  Resh:=z=n;
end;
function Alg(a,b,y,z:integer; var k:integer):integer;
var i:integer;
begin
  k:=0;
  for i:=a to b-1 do
    if (y mod 2=0) and Resh(i,y,z) then k:=k+1;
      Alg:=k;
      writeln('Число: ',i:3);
end;
var a,b,n,y,z,k:integer;
begin
  Vvod(a,b,n);
  write('Количество: ',Alg(a,b,y,z,k));
end.

[Frank63]

Найдите, пожалуйста, ошибки хотя бы в одном варианте из двух

[BDA]

program qq;

procedure vvod(var a, b, n: integer);
begin
  writeln('Введите a');
  readln(a);
  writeln('Введите b');
  readln(b);
  writeln('Введите n');
  readln(n);
end;

procedure algoritm(a, b, n: integer; var k: integer);
var
  i, x, y, z: integer;
begin
  k := 0;
  for i := a to b - 1 do 
  begin
    x := i;
    z := x mod 10;
    while (x >= 10) do 
      x := x div 10;
    if (x mod 2 = 0) and (z = n) then begin
      k := k + 1;
      writeln('Число: ', i:3);
    end;
  end;
end;

procedure vyvod(k: integer);
begin
  writeln('Количество чисел: ', k);
end;

var
  a, b, n, k: integer;

begin
  vvod(a, b, n);
  algoritm(a, b, n, k);
  vyvod(k);
end.

А так?

[Frank63]

работает, большое спасибо=)

[werden]

Добрый вечер. я в паскале новичок!. сейчас решаю задачки(1-е домашнее задание), прошу подсказать, как проверить правильность решения задач в паскале.

[Leshii]

Тему отдельную надо создавать, и там уже описывать суть проблемы.