Знайдіть суму всіх цілихчисел, які: 1) менші від числа 3 і більші за число -3 1/3; 2) менші від числа 5 1/5 і більші за число -8 1/4.

Program znaka4;
var a:integer;
begin
repeat
readln(a);
until (a>1000) and (a<10000);
writeln('1 zadanie= ',a mod 10,a div 10 mod 10,a div 100 mod 10,a div 1000);
writeln('2 zadanie= ',a div 100 mod 10,a div 1000,a mod 10,a div 10 mod 10);
writeln('3 zadanie= ',a div 1000,a mod 10,a div 10 mod 10,a div 100 mod 10);
end.