В кастрюлю с кипятком положили взятый из холодильника, где температура 5 °С, кусок мяса. Спустя некоторое время температура воды

Var
i,k:Integer;
Begin
 for i:=10 to 99 do
    if (i mod 10 = 5) or (i mod 10 = 0) then k:=k+1;
 Writeln(k);
end.