целое и дробное

Var a,b,i,j:integer; 
begin 
writeln('Числа кратные 7 в задаваемом диапозоне');
write ('Введите левую границу диапозона ');
readln (a);
if a>0 then write ('Введена верная граница') else begin write ('Ошибка'); exit end;
write ('Введите правую границу диапозона ');
readln (b); 
if (b>0) and (b>a) then write ('Введена верная граница') else begin write ('Ошибка'); exit end;
for i:= a to b do begin 
if i mod 7=0 then begin 
writeln(i); 
j:=j+1;
end
end;
writeln('Чисел кратных 7');
writeln (j); 
write('Нажмите Enter'); 
readln; 
end.

var s:=string;
      a,c:integer;
begin
repet
write ('Введите левую границу диапaзона ');
readln (s);
val(s,a,c);
if (c<>0)or(a<=0) then write ('Введена не верная граница, повторите ввод.');
until (c=0)and(a>0);

Var a,b,c,i,j:integer;var s:string;
begin
writeln('Числа кратные 7 и их кол-во');
repeat
write ('Ввелите левуя границу -');
readln (s);
val(s,a,c);
if (c<>0)or(a<=0) then writeln ('Не верная граница, повторите ввод');
until (c=0)and(a>0);
repeat
write ('Введите правую границу ');
readln (s);
val(s,a,c);
if (c<>0)or(a<=0) then write ('Не верная граница, повторите ввод');
until (c=0)and(a>0);
for i:= a to b do begin
if i mod 7=0 then begin
writeln(i);
j:=j+1;
end
end;
writeln('Чисел кратных 7');
writeln (j);
write('Нажмите Enter');
readln;
end.

uses crt;
Var a,b,c,i,j:integer;var s:string;
begin
repeat
write ('Ввелите левую границу -');
readln (s);
val(s,a,c);
if (c<>0)or(a<=0) then writeln ('Не верная граница, повторите ввод');
until (c=0)and(a>0);
repeat
write ('Введите правую границу ');
readln (s);
val(s,b,c);
if (c<>0)or(b<=a) then write ('Не верная граница, повторите ввод');
until (c=0)and(b>a);
writeln('Числа кратные 7 и их кол-во');
for i:= a to b do
if i mod 7=0 then
 begin
  writeln(i);
  j:=j+1;
 end;
if j=0 then writeln('Таких чисел нет')
else writeln('Чисел кратных 7=',j);
write('Нажмите Enter');
readln;
end.