Question

var sum,a,num:integer begin
sum:= 0; num:=0; readln(a);
while a<>do begin
sum:=sum+a
if (a mod 2=0) and (a mod 5=0)
then num:= num+1
readln (a)
end;
writelh (sum), writelh (num)
end.

Answer 1

var sum,a,num:integer
begin
sum:= 0;
num:=0;
while a<> впиши условие do
begin
readln(a);
sum:=sum+a
if (a mod 2=0) and (a mod 5=0) then inc(num);
end;
writeln(sum);
writeln (num);
end