Ответы и объяснения

2013-03-17T10:50:13+04:00

Program pr;
Var M:array[1..12] of integer;
    i:integer;

Begin
for i:=1 to 12 do readln(M[i]);
Writeln;
for i:=1 to 12 do
if M[i] mod 10=0 then Write(M[i],';');

end.