1)
var A,B,C,D:integer;
begin
D:=0;
writeln('vvedite 3 4isla 4erez probel(Naprimer: 5 10 30)');
ReadLn(A, B, C);
if A mod 5 = 0 then Inc(D,A);
if B mod 5 = 0 then Inc(D,B);
if C mod 5 = 0 then Inc(D,C);
writeln('summa 4isel kratnije 5-ti: ',D);
readln;
end.
2)
var A,B,C,D:integer;
begin
D:=0;
writeln('vvedite 3 4isla 4erez probel(Naprimer: 5 10 30)');
ReadLn(A, B, C);
if (A>=3) and (A<=10) then Inc(D,A); // проверка что число лежит в интервале [3;10]
if (B>=3) and (B<=10) then Inc(D,B);
if (C>=3) and (C<=10) then Inc(D,C);
writeln('summa 4isel v intervale ot 3 do 10(s 10 vklu4itelno): ',D);
readln;