Question

СРОЧНО!ПОМОГИТЕ ПОЖАЛУЙСТА❤️
СПАСИБО❤️
2 задание

Answer 1

program x;
var a, i, b:integer;
Begin
a:=10;
b:=0;
for i:=1 to 10 do begin
if (a mod 2)=1 then b:=b+a;
a:=a+1;
end;
write(b);
End.